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- Editorial -- 

LA ENCUESTA 


De absotuta sorpresa ha sido vuestra reaction 
con respecto a la encuesta que publicamos en el 
anterior numero de INPUT. Una autentica ava- 
lancha de respuestas inunda las mesas de la re¬ 
daction, El mdice de receptividad ha sido extre- 
madamente elevado y de ahi la sorpresa. 

Segun dicen los eruditos de la estadfstica apli- 
cada, una muestra correctamente dimensionada 
proporciona information totalmente fiable so- 
bre una poblacion (antes lo llamaban universo), 
Aun no siendo expertos, creemos que la mues¬ 
tra proporcionada por vuestras cartas sera mas 
que representativa. Cuando terminemos de ta¬ 
bular! as obtendremos una idea muy aproxima- 
da de las preferences de la mayoria de los 
lectores. 

De todas formas, leemos todos los cuestiona- 
rios, aunque sin gran detenimiento, y hemos lo- 
grado aislar algunas ideas que iremos Uevando 
a la practica poco a poco, para que la revista 
pueda identificarse cada vez ntis con sus lec¬ 
tores. 


Otra sorpresa han sido las pocas crfticas que 
nos destinais, aunque bien es cierto que hay al¬ 
gunas. Hay quienes detis que el nivel es alto, 
otros que bajo, pero lo verdaderamcnte difi'cil 
es escribir una revista de gran difusion que gus- 
te a todos. No obstante, invitamos a quienes po- 
dais aportar algo de vuestros conocimientos a los 
demas, El equipo que elabora la publication es 
gente joven a quienes gustan los ordenadores y 
hacer revistas. Las puertas estan abiertas a to¬ 
dos vosotros. Parti cipar tiene tarn bien sus ven- 
tafas. Sin ir mas lejos, en este numero aparece 
la lista de premiados por participar, 

Otra conclusion provisional, ya intuida, es 
que la revista circula mucho de mano en mano. 
En gran cantidad de casos afirmais comparer un 
ejemplar de la revista con otros usuarios. 

Solo queda agradeceros vuestra cooperation. 
En esta edition volvemos a publicar el cuestio- 
nario, antes de proceder al sorteo del orde- 
nador. 


LOS MEJORES DE INPUT 


Memos pensado que es interesante dtsponer de un ranking que 
portga er claro, mes a mes, cuales son los programas preferidos 
de nuestros lectores, Para ello, es obligado preguntaros directamen- 
te y tener asf el mejor termometro para conocer vuestras preferen- 
cias. Podeis votar por cualquier programa aunque no haya sido co- 
mentado todavia en INPUT. 


Ei resultado de las votaciones sera publicado en cada numero 

de INPUT 

Entre los votantes sortearemos 10 cintas de los tftuios que pidais 
en vuestros cupones. 

Nota: No es preciso que corteis la revista, una copia hecha a 
m&iuina o una simple fotocopia sirven. 


Enviad vuestros votos a: LOS MEJORES OE INPUT Alberto Alcocer, 46 - 4.° B. 28016 Madrid 


ELIGE TUS PROGRAMAS 

Primer tltulo elegido l t < \ i i i i i i i i i i j _L Segundo tftulo elegido ... .i_i_i_l 

Tercer tftulo elegido I_i_i_i_i_[_i_i_i_i_i_i_i_i_i_ 1 Programa que te gustaria conseguir I.. i I 

Que ordenador tienes I i t i i i i i i i i i i i l Nombre l_i_i_i_i_i_i_i_i_i_ l_j _i—i—i—i—i—i—l 


l.'Apellldo I_ l 


J I j I I J I I I I I-1-1-L 


2." Apeilido 1_i_i_i_i_i_i_i_i_i_i_ l 


j l l l l 


Fecha de nacimiertto I. . i i i i i i _i_i_L Teltfono I t i i i i i < 


...i l 


Direction I i i i i i 


i i i i _i_i_I_I_I_I_I_I Localidad I. .i_i_i_ i 


i i I 


Provineia I_i_s_i_i_i_i_i_i_i_i_s_:_I_i._I_j_I 


INPUP SINCLAIR N.' 7 


_! 












































r 


j 



















LA SAGA TASWORD 

El paquete de trataniento de 
textos Tasword bs tal vei el 
que mayores dxitos ha 
cosechada entrB Ids ustiarios 
del Spectrum , Tanto es ssi 
que suTaErTcante, Tasman , 
lan 2 ara prtfxiianente la 
tercera versidn, tfesarrollada 
exdusivariente para 
Mitrodrive. 

Entre las novedades que 
aporta se encuentran la 
osibilidad de dispcner de 
asta 123 caracteres por 
lines y hasta tratami'ento de 
listas para correo. 


fi 


HAS PR0YECT03 
DE SINCLAIR 


'll. JlaJI* CO 


nal 


sir Clive 
hablar de ei 


bien o 
sieapre da para 
y sus inventos, 

Ahora se bar aj an los nuevos 
nombres de productos 
•futurities, pero eso si, a 
nivel de rumor- coma siemprs 
Su enpresa y el mismo no 
afirman y tantpoco niegan. 

Se lentan ahora los niodelos 


aspects 

Spectrum 








CIS y C20 c 
esta ett la TTfiea 
123. Para este ultimo 
aparecera en breve un juego 
titulado Robot Messiah , tlikro 
Een^ por su UdD, parece que 
esta preparando una version 
ampliada de Tres semanas en 


e 

l 

punfiT 


parai 

TOT 


so 


de cara 
us parece 
ilir de 


IT 


i m 


1737 

e IsTa a 
de'salir de fibrica y 
se especula con la idea de 
que pueda ser compatible con 
e) sistema operative CP/H t de 
Digital Research , 
dtro prayecto,'ei bautizado 
Pandora , que serf a un 
Spectnii port at 1 1 con 
urmfades de dUUtfe de 
3-1/2" y la pantalU plana 
utiiizada en el salogrado 
televisor portatil de 
Sinclair , parece que 

atraviesa baches por 

problems con U mecionada 

pantallita y tal vez no pueda 

estar listo en abril. 
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UN ORDENADOR tN FORMULA 1 


f|.In conocido fabricante de 

iUiordmdores, Data 
General t irrumpe in'el mundo 
de Ta Tor inula 1 adquiriendo 
un Tyrrell Renault 015 . con 
motor turboT 
Lo noticiable es la 
utilizacidn de ordenadores de 
la firffla para el desarrollo 
de la carrocena, 
recumendose a analisis 
estiticos, di nisi cos v 
aerodinamicos para oplmzar 

el diseno* 


Por otro lado t en los iom 
se empleara un «uc roar den ad or 
portaxi 1 DG/1 para la puesta 
a panto y control del 
rendifliisnto del vehiculo* 

La temperada coflienza el 23 
de luarzc- con el Gran Premio 
del Brasil y la ssgunda 
carr^ra tendra lugar en el 
nuevo circuito de compel i cion 
de Jerez de la Frontera. 

Kartin Brandle Ditot are el 

bolidot 





AVENTURA CON TEXTO 


Lo nuevo de Sreffllins 
Graphics sera un jueqo de 
aventura que,enplea texto y 
pantallas graficas para 
recrear la ficcidn de las 
novelas tituladas El casi no. 
del tiore , el ilsmo titulo 

? Te"lleva el program, 

1 jagador es un huerfano que 
ileva una marca de nacimient□ 
en el musio con forma de 
corona* Los ionjes y msticos 
coineiden en senalar que se 
trata de algo mis que una 
jnancha, 

Como hate sospechar el 


titulo, los combates de artes 
marciafes, incluso con 
samurais f ocupan un lugar 
iredosinante en el juego* 
tl inexcusable maestro 
cargado de anos y sabiduna 
esta iguaUente presente en 
el juego y sera el encargado 
de entrenar al pobre huerfano 
de corazSn fuerxi 
I i fflpi a, etc, 

Este program viene 
reforzar la macia de 
prograias de lucha, aportando 
textos. 


e y alma 


a 

Ids 


ROCK Y LUCBA 


fr'< ock y Luc ha es un programs 
de la tirma fleTfourne House 
disponihle pa7a”el ofdenador 
Commodore iA . en el que hemos 
podido constatar su excelente 
calidadi La version para 
Spectrum esta a panto de ser 
lanzada* 

Se trata de un juego en el 
que se enfrentan distintos 
luchadores de catc^ 
personalizados por sus 
ointorescas indumentarias y 
teiibles nembres, tales cono 
CueHorojg HcCoy , Nick 
nolotov o el Vi clasp Vivien, 


En la pantalU aparece un 
rina en perspectiva y los 
coniendientes pueden moverse 
por el t manteniendose el 
efecto tridimensional* 

Exists un repertorio 0e hasta 
25 movifluentos diferentes, 
entre los que se incluye la 
ayuda de Us cuerrfas para 
dispararse contra las 
costillas del adversaria. 

A1 parecer, este slaborado 
prograuia ha si do desarrollaco 
por el etiismo equipo que ;uso 
a panic Tne way of the 
exploding fist * 


INPUT 5 




















































































Aplieaciones 


CONTROL GLOBAL 
DE FACTURACION IVA 


HABLANDO DE IMPUESTOS 
SERV1CI0S Y PRODUCTQS 
PRQVE EDORES Y CLIENTES 

_ FACTURAS 

PROGRAMA 


No pretendemos analizar aqui el tan 
controvertido IVA (Impuesto sobre el 
Valor Anadido). Su implantation nos 
ha llegado come censecuencia de la ad¬ 
hesion de Espaha a! Mercado Comun 
Europeo y nos guste o no tenemos que 
aprender a convivir con el. Nuestra 
unica intention es ? al menos, facilitar 
las cosas a aquellos de nuestro lectores 
que se vean obligados a iiquidar a Ha¬ 
cienda por este concepfo. 


E! programa esta escrito totalmen- 
te en BASIC y parainetrizado a! ma¬ 
xi mo para facilitar las cosas a aquellos 
que intenten adaptarlo o estudiar sim- 
plemente su composition y sacar de 
ello alguna ensenanza, objetivo este 
que siempre nos proponemos. 

Al redactar el programs se ha dado 
prioridad a una exposition lo mas or- 
denada v estructurada posible y a una 
operatividad maxima aunquc para ello 
haya habido necesidad de alargar el 


Tanto la consults como el listado 
pueden hacerse refiriendonos a todos 
los apantes de un fichero o de forma 
selectiva a algunos de ellos. For ejem- 
plo puede interesarnos conocer las 
faeturas de un cierto proveedor, com- 
prendidas entre dos fechas determina- 
das y cuyos importes superen un cier¬ 
to valor, etc* 

Por cada registro de documento 
contable pueden reflejarse los siguien- 
tes datos: 


Una vez mas nuestro ZX-Spectrum 
puede echarnos una mano si a su vez 
nos ayudamos de un programa como 
el que present am os* El programa 
CGF1VA (Control Global de Factura- 
ci6n IVA) esta escrito para darnos un 
buen servieio con la configuration ba¬ 
sics (ZX-Spectrum y cassette) cornple- 
mentada con una impresora de SO co- 
iumnas (v su correspondiente in{effa¬ 
ce), aun cuando no es del todo impres- 
cindible* 


programa. 

El objetivo del programa es llevar 
el registro de las faeturas pagadas a los 
proveedores por compras de bienes o 
servicios y tambien de las que noso- 
tros emitamos a nuestros clientes. En 
cualquier momento podremos consul- 
tar una factura o un grupo de el las, e 
incluso modifiearlas o listarlas. Tam¬ 
bien podremos consultar a nuestra 
bola de cristal como vamos cara a Ha¬ 
cienda, 


- Numero de Factura 

- Descripcibn del contenido (max* 
20 caracteres) 

- Codification (01 - 20) 

- Descrip. del proveedor o cliente 
(max. 20 caracteres) 

- Codification (01 - 80) 

- Fecha 

- Importe (sin IVA) 

- Importe del IVA 

- Cod. Auxiliar (max* 3 caracteres) 































































































































Aplicaciones 


Los rcgistros de las facturas se agru- 
pan en ficheros, y de estos puede ha- 
ber Ids que se quiera. En nuestro pro- 
grama, cada fichero pueden almace- 
nar hasta 300 facturas, numero que 
consideramos suficiente para el caso 
de un pequeno negocio. (For ejemplo, 
un fichero puede bastar para la factu- 
radon mensual), Si fuera necesario, 
pudiera ampliarse este numero hasta 
400 con una reduccion en la Songitud 
de algunos campos. 

Debe reeordarse que el primer fi¬ 
chero es el No. 1 y no el No.O (el 10000 
es solo el fichero basico, mientras que 
el primero del aho 1986 seria 18601), 
De esta manera la primera factura ten- 
dria Ref. 1, y la ultima Ref.300, Podfa- 
mos haber comenzado por el fichero 
No,3, pero en este caso la primera fac¬ 
tura tendria Ref.601 y la ultima 
Ref. 900. 

Seria aconsejabie utilizar una cinta 
de cassette para cada fichero, hacien- 
do la grabacion en ambas caras, por 
seguridad. 

Se ha incluido tambien como parte 
de programa la modificacion necesaria 
de los UDG's a fin de convertir el te- 
clado en «espanoI». 


PUESTA EN MARCHA INIC1AL 


La primera vez que trabajemos con 
el programa debemos arrancarlo con 
RUN a fin de generar el fichero ba¬ 
sico (10000), procediendo luego al ar¬ 
chive en cassette del programa y fiche¬ 
ro basicos. Mediante la Opcion 10 el 
programa queda ya listo para use pos¬ 
terior con el nombre «CGFIVA». En 
lo sucesivo, cada vez que se cargue e! 
programa arrancara automaticamente 
y mediante la Opcion 9 podremos ele- 


gir el fichero con el que se desea traba- 
jar. 

NOTA IMPORTANTE: SI FOR 
ALGUNA CAUSA HAY QUE REI- 
NICIALIZAR EL RGDAJE DEL 
PROGRAMA CUANDO SE ESTE 
TRABAJANDO CON UN FICHE¬ 
RO NUNC A HAG AS “RUN” SI NO 
QUE DEBES REANUDAR CON 
“GO TO 1000“ O DE OTRA MA¬ 
NERA EL FICHERO QUEDARA 
DESTRUIDO, 


TABLAS DE CODIGOS DE 
SERVICIOS / PRODUCTOS 


Para mejorar las prestaciones se ha 
previsto codificar las facturas por £i- 
pos. De esta manera, posteriormente 
se podra hacer un manejo selective de 
facturas. 

Solo se codificaran los tipos impor¬ 
ta ntes, En nuestro caso se han previs¬ 
to 20 tipos. Si una factura no esta jus- 
tificado clasificarla, simplemente no se 
le asignara ningun codigo. 

Con ayuda de la Opcion 6 confec- 
donaremos la tabla correspondiente. 
La eual podremos modificar o consul- 
tar siempre que sea necesario. 

En una empresa de construction las 
facturas, independientemente de su 
deseripcion especifica podrian quedar 
clasificadas en: gastos gene rales, ce- 
mento, pinturas, alquiler equipos 
obra, modificaciones tiendas, cons¬ 
truction jardines, etc. 


TABLAS DE CODIGOS DE 
PROVEEDORES / CLIENTES 


Identiea situacidn se nos presenta 
con los clientes o los proveedores. 


Igualmente solo se codificaran los 
tipos importances, En nuestro caso sc 
han previsto 80 tipos. Si una factura 
no esta justifieado dasificarla, simple- 
mente no se Ic asignara ningun codigo. 

Con ayuda de la Opcion 7 eon fee- 
cionaremos la tabla cor respond] ente. 
La cual podremos modificar o consul- 
tar siempre que sea necesario, 

En el mismo tipo de negocio ante¬ 
rior las facturas, ademas de indicar el 
proveedor / cliente podrian llevar el 
codigo correspondiente a dicho pro¬ 
veedor / cliente (o familias de) a efec¬ 
tos de manejo posterior. 


INCLUSION DE FACTURAS 


La inclusion de facturas pagadas, o 
cobradas, se realiza con ayuda de la 
Opcion 1, La mec&nica de inclusion 
esta totaimente guiada por el progra¬ 
ma y no ofrece problemas especialcs. 
Los datos aparecen cn pantalla con la 
estructura que aparece en el cuadro L 

El numero de orden de la factura lo 
fija el ordenador a fin de cvilar dupii- 
cidades, errores o incluso cancelacio- 
nes invohintarias (se trata del numero 
que debemos escribir a mano sobre el 
documento correspondiente a efectos 
de identification posterior). 

AI introducir el valor del IV A el or¬ 
denador caleuia el % sobre el valor de 
la factura, simplemente a efectos de 
control, Igual ocurre con el campo To¬ 
tal. 

El campo de Cod. Aux. puede uti- 
lizarse segun las necesidades pero hay 
que tener en cuenta que el ordenador 
eonsidera la factura como cobrada si 
el primer caracter es «C» y como pa- 
gada en cualquier otro caso, si bien es 
recomendable utilizar la «P». Los 















































Vivimos en el aho 2084, El 
SILICON VALLEY esta 
envuelto en un conflicto de 
gran magnitud, Usled es un 
guerrero SILICON y su mlsion 
es programar cinco chips 
antes que su oponente. 

• 16 2 jugadores • Joystick 

• COMMODORE 64, 


• Soberbios Graficos 

• Voz Smtetizada. 

• Concepto original def juego. 

• Juego del aho 1985 
Son algunas de sus 
caracteristicas 

Como miembro del escuadron 
antiterrorista computenzado, 
tu misidn es encontrar y 
alcanzar al inlame ELVIN 
Debes encontrar un paso a 
traves de las habitaciones y 
tuneles de su Guartel General, 
tratando de evitar los robots 
protectores 

Tu rrusion es satvar el mundo, 
pero date pnsa 

COMMODORE • SPECTRUM 

• AMSTRAD 

• 1 Juyador • Joystick 










La locura del memento, el 
BREAKDANCE, no debes 
perdertela. 

Ahora cualquiera puede bailar 
BREAKDANGE, coge el 
joystick y controls tu bailarin 
en moon walking, stretching, 
popping y breaking, 

Elige entre cuatro modes de 
juego Un juego de accion en 
que tu bailarin lucha con las 
bandas de BREAKERS, 

Intenta seguir el ritmo de tu 
oponenta Crea tu propia 
coreografia y el ordenador te 
hara un playback de el la. 
Estudia la secuencia de pasos 
para realizar los distintos 
movimientos BREAK. 

Aprende a bailar 
BREAKDANCE hoy. EPYX te 
lo hace faciL 
COMMODORE 64 
• 16 2 Jugadores • Joystick. 


COMPUTER SOFTWARE 


Esta ante las puertas del 
TEMPLO de APSHAI. Muchos 
aventureros han estado aqui y 
muy pocos han conseguido 
desvelar el misterio de 
TEMPLO, de APSHAL 
Necesitara mas que un 
caracter fuerte. inteligencia y 
una afilada mtmcion para 
superar la perversidad del 
TEMPLO 

COMMODORE 64 
• AMSTRAD* 

UnJugador • Joystick 


Distribuido en Cataluna y Baleares por: 
DISCLUB, S.A. - Of Balmes, 58 
08007 BARCELONA - TeL 302 39 08 


Temple of Apshai 

TRILOGY 



















































No es tarde para p rep ar arse 
cara a 1988, con fa dieta 
correcta. entrenamiento 
adecuado y horas de practice 
lo puedes consegun 
Mientras tanto ponte el 
chandal coge el joystick y 
deja que SUMMER GAMES II 
te de ocho nuevas formas de 
obtener el ORO. 

Ciclismo, Valias, Kayak, Triple 
salto. Salto de altura, Jabalina, 
Hi pica. Esgrima son las 
pruebas 

Entrega de medallas al final de 
cada prueba. Geremonia de 
apertura y cterre, son algunas 
de sus caractensticas, 

• Hasta 8 Jugadores 

• Joystick 

• COMMODORE 64 

• SPECTRUM • AMSTRAD' 


Ha conseguido el oro en 
SUMMER GAMES y SUMMER 
GAMES II? jAhora estamos en 
WINTER GAMES! y que 
increible marco para participar 
en sus nuevas y escitantes 
competiciones. 

• COMMODORE 64/128 

• SPECTRUM 

• AMSTRAD 


Usted es un at I eta oltmpico 
compitiendo en ocho 
competictones clave de los 
JUEGOS QUMPICOS. Pista, 
lire al bianco, gimnasia son 
algunas de las pruebas. 

• Hasta ocho jugadores 

• Control joystick 

• COMMODORE 64 





• 6 circuitos diferentes. 

• Excelentes graficos. 

• Escucha el rugir de los 
motores 

• Doble accion simultanea. 
Con PITSTOP It puedes 
experimenter la emocion de la 
velocidad y el nesgo a medida 
que luchas con tu oponente 
en una carrera contra el 
tiempo 

Es sin duda el mejor juego de 
carreras existente. 
COMMODORE 64 

• 16 2 Jugadores 

• Joystick 



Fabncado y distribuido 



bajo licencia 
en exclusiva por 


COM PU LOGICAL s.A 



Sanla Cw de Mafcenatto, 31 - 2 flCH 5 MaiJi'ifl-Tel£l 241 1Q6S 
















otros dos caractcres pueden utilizarse 
por ejemplo para referenciar la pro- 
vincia o zona que afecta a la factura, 
o cl comisionista, para indicar si ei ser- 
vicio se ha prestado a un organismo 
publico, a un particular, etc. 


MODIFICACIONES 


En cualquier momento puede scr 
necesario corrcgir cualquier error o 
ahadir datos de los que no se dispom'a 
cuando se hizo la inclusion en fichcro. 
Utilizaremos la Opcion 2, solo se re- 
quiere conocer el niimero de referen¬ 
da que sc did a la factura en su mo¬ 
mento (podemos ayudarnos con las 
Opciones 3,4 6 5). 

A1 final de cada modificaeion el 
programa nos pidc informacidn de si 
dcseamos regresar al menu o conti- 
nuar con la in ism a tarea. 


BUSQUEDA DE FACTURAS POR 
NUMERO DE REFERENC1A 


Esta opcion es pa red da a la ante¬ 
rior en cuanto a opcrativa pero esta 
pensada para mostrarnos el contenido 
de una factura cuyo numero, indica- 


1 REM PROGRAMA "CG FIVA" 

(CONTROL GLOBAL DE FACTURACION IVA ) 

2 REM NUNCA UTILICE RUN (EXCEPTO LA PRIMERA VEZ QUE SE PONGA EN MARCHA DESPUES DE 

TECLEAR EL PROGRAMA) !!!SIEMPRE SOLO GOTO 1000!!! 

4 REM 

10 REM *** M 0 L I S 0 F T *** 

12 REM ************************ 

13 REM 

15 CLS : PRINT AT 10,10;"UN MOMENTO..." 

20 RESTORE : GO SUB 4000 

3G LET NI=301: LET LI=64: LET NJ=21: LET LJ=12: LET NK=81 : LET LK=15: LET NF=1: LET 
NM=11 

40 LET F$="10000": LET G*= ,t SERV"; LET H$="CLI" 

50 DIM I$(N1,LI): DIM J$<NJ,LJ): DIM K$(NK # LK): DIM M$(NM,2Q) 

60 LET F1=1: LET FJ=1: LET FK“1 

65 FOR 1=1 TO NI-1 : LET I$(I)= ,,,r : NEXT I 

70 LET I$(ND-STRS (FI); LET J$CNJ)=STR$ (FJ): LET K$(NK)=STR$ CFK) 

80 GO TO 1000 

100 CLS : PRINT AT 12,8; FLASH 1;"PARE LA CASSETTE": BEEP 3,10 
110 RESTORE : GO SUB 4000 
999 REM 

1000 CLS : REM MENU 

1001 REM 


mos pero sin posibilidad de modifiea- 
ciones. Gfrece en cambio la ventaja de 
que oprimiendo ENTER nos puede 
presentar las facturas de numero si- 
guiente, lo cual es muy util euando se 
desea simplemente «echar un vistazo» 
para localizar una factura de la que 
solo tenemos una referencia aproxi- 
mada. 


BUSQUEDA SELECTIVA 


Sin necesidad de actidir a un listado 
en papel podemos conocer y visualizar 
en pan tall a, una a una, todas las fac¬ 
turas del fichero que cumplen con una 
cierta condition, Por ejemplo aquellas 
«pagadas» entre «tal y tal fecha», de 
un «tipo de servicio» f y/o un «tipo de 
proveedor» determinado, Igualmente 
pueden fijarse los limites ( minim o, 
maximo o am bos) del ini porte de la 
faetura y del IVA, 


LISTADO SELECTIVO 


Aquellos que dispongan de una in> 
presora de 80 columnas mmimo co- 
ncctada a su ZX-Spectrum pueden 
aprovechar la Opcion 5 para obtener 


un listado en pape! con los datos ana- 
logos a los ofrecidos por la Opcion 4, 


RESUMEN PARA UQUIDACION 
A HACIENDA 


En definitiva, todo el objetivo del 
programa radica en llevar un control 
de nuestra actividad, a traves de las 
facturas emitidas o pagadas, para po- 
der conocer eon exact! tud como va 
nuestro balance de IVA (cobrado y pa- 
gado) a efectos de nuestras relaciones 
con Hacienda, Con ayuda de la Op¬ 
cion 8 podemos ver como va en todo 
momento este balance. 

El rcsultado nos aparece en panta- 
lla con los siguientes datos: 

fmportes, IVA y totales pagados 
Importes, IVA y totales cobrados 
Numero de facturas sin figurar im- 
porte 

Numero de facturas sin figurar IVA 
Diferencia a favor nuestro o de Ha¬ 
cienda 

Ei numero de facturas en las que no 
figura irnporte nos pone en guardia 
para hater una revision general ya que 
toda factura, en principle, debera te¬ 
ller un importe y se debera haber pa- 
gado un IVA, 


IQ INPUT 






















/Vplicaciones 



1002 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1025 
1030 
1035 
1060 
1099 


11 


11 


01 
"02 
"03 
04 


11 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT "05 
PRINT "06 
PRINT 
PRINT 
PRINT 
PRINT 


CONTROL GLOBAL DE FACTURACION 


h r if 


if 


if 


■ INCLUSIONES 

• MODIFICACIONES" 

■ BUSQUEDA DE FACT. POR NUM. 

■ BUSQUEDA SELECTIVA" 

■ LISTADO SELECTIVO" 

■ CODIGO SERVICIOS IMPORTANT. 

■ CODIGO CLIENTES IMPORTANTES 

• RESUNENES LIQUID. HACIENDA" 

■ ELECCION DE FICHERO" 

■ ARCHIVO EN CASSETTE" 

PRINT AT 15,0;"ARCHIVO EN USO : ";F$ 
INPUT " OPCION ? ";OPC 

IF OPC<=0 OR 0PC>10 THEN GO TO 1030 
GO SUB (1000+200*OPC) 

GO TO 1000 


"07 

"08 

"09 

"10 


If 
i r 


ii I f 


1100 REM. 

1200 REM "INCLUSION DE FACTURAS" 

1201 REM 

1210 CLS : LET Rl =0: LET FI=FN I(): LET NF=FN NO: GO SUB 5000 
1220 FOR 1=1 TO NM: LET M$(I)=" NEXT I 

1240 PRINT FLASH 1;AT 3,10;" INPUT "DESCRIPC.? (max.20c.):",P$: IF P$="" THEN LET 
P$=M$(3) 

1241 IF LEN P$>20 THEN GO TO 1240 

1242 LET M$(3)=P$: PRINT AT 3,10;M$(3> 

1245 PRINT FLASH 1;AT 4,10;" INPUT "COD.SERV.? (max.2c) **=TABLA",P$: IF P$= 

"" THEN LET P$=M$(4)(1 TO 2) 

1246 IF LENP$>2 THEN GO TO 1245 

1247 IF THEN GO SUB 6000: GO TO 1245 

1248 IF LEN P$=1 THEN LET M$(4)="0"+P$: PRINT AT 4,10;M$(4) 

1249 IF LEN P$=2 THEN LET M$(4)=P$: PRINT AT 4,10;M$(4) 

1250 PRINT FLASH 1;AT 5,10;" INPUT "PROVEEDOR/CLIENTE.? (max.20c.):",P$: IFP$="" THEN 
LET P$=M$(5) 

1251 IF LEN P$>20 THEN GO TO 1250 

1252 LET M$(5)=P$: PRINT AT 5,10;M$(5) 

1255 PRINT FLASH 1;AT 6,10;" INPUT "COD.PROV./CL I.?(max.2c) **=TABLA";P$: IF P$=" M 
THEN LET P$=M$(6)(1 TO 2) 

1256 IF LEN P$>2 THEN GO TO 1255 

1257 IF P$="**"THEN GO SUB 6500:GO TO 1255 

1258 IF LEN P$=1 THEN LET M$(6)="0"+P$: PRINT AT 6,10;M$(6) 

1259 IF LEN P$=2 THEN LET M$(6)=P$: PRINT AT 6,10;M$(6) 

1260 PRINT FLASH 1;AT 7,10;" ": INPUT "DIA Y MES ?(4c.) '"P$: IF P$="" THEN LET P$=M$ 
(7) (1 TO 4) 

1261 IF LEN P$<>4 THEN GO TO 1260 

1262 LET M$(7)=P$: PRINT AT 7,10;M$(7)(1 TO 2) + '7"+M$(7) (3 TO 4)+ , 719"+F$(2 TO 3) 

1265 PRINT FLASH 1;AT 8,10;" INPUT "IMPORTE (SIN IVA)? (max.7c.):",P$: IF P$ ="" THEN 
LET P$=M$(8)(1 TO 7) 

1266 IF LEN P$>7 THEN GO TO 1265 

1267 LET M$(8)=PS: PRINT AT 8,10;M$(8) 

1270 PRINT FLASH 1;AT 9,10;" ": INPUT "IVA? (max.6c.):",P$: IF P$="" THEN LET P$=M$(9) 
(1 TO 6) 

1271 IF LEN P$>6 THEN GO TO 1270 

1272 LET M$(9)=P$: PRINT AT 9,10;M$(9) 

1273 IF (M$(8)(1)) = " " OR (M$(8)(1)) = "0" OR M$(9)(1) = " " OR M$(9)(1 ) = "0" THEN GO TO 1280 

1274 PRINT AT 9,20;INT (10000*(VAL M$(9)/VAL M$(8))+0.5)/100;" %" 

1275 LET M$(10)=STR$ (VAL M$(8)+VAL M$(9)): PRINT AT 10,10;M$(10) 


INPUT 11 















1280 PRINT FLASH 1;AT 11,10;" INPUT "COD. AUX.? (max.3c.)EJ. P/C.. IF P$=" M 

THEN LET P$=M$(11)(1 TO 3) 

1281 IF LEN P$>3 THEN GO TO 1280 

1282 LET MS(11) = P$: PRINT AT 11,10;M$(11) 

1285 INPUT "CONFORME ? (S/N) ";P$: IF P$="N" OR P$="n" THEN GO TO 1240 

1286 IF R1=2 THEN GO TO 1290 

1287 LET I$(FI)=M$(3)(1 TO 20) + MSC4)(1 TO 2)+M$(5)(1 TO 20)+M$(6)(1 TO 2) + M$<7)(1 TO 4) 

+M$(8)d TO 7)+M$(9)(1 TO 6)+M$(11K1 TO 3) 

1288 IF R1=0 THEN LET FI=FI+1; LET I$(NI)=STR$ FI 

1289 IF FI=NI THEN CLS : PRINT AT 8,10;"N0 CABEN MAS FACTURAS EN ESTE FICHERO"" "PULSE 
CUALQUIER TECLA PARA IR AL MENU": PAUSE 0: GO TO 1399 

1290 IF R1=0 THEN INPUT "DESEA SEGUIR ? CS/N) ";P$: IF P$<>"N" AND P$<>"n" THEN GO TO 
12 DO 

1295 IF Rl=1 THEN INPUT "DESEA SEGUIR ? CS/N) ";P$: IF P$<>"N" AND P$<>"n" THEN GO TO 


1400 

1300 IF Rl -2 THEN INPUT "DESEA SEGUIR ? (S/N) ";P$: IF P$<>"N" AND P$<>"n" THEN GO TO 
1600 

1399 RETURN 

1400 REM 

1401 REM MODIFICACIONES 

1402 REM 

1410 CLS : LET Rl =1 

1420 INPUT "No. DE FACTURA ? ";P$ 

1422 IF Rl=1 AND P$="" THEN GO TO 1420 

1423 IF Rl=2 AND P$="" THEN LET NF=NF+1 : GO TO 1430 

1424 LET NF=VAL P$ 

1425 IF NF<FN PC) OR NF>=FN F() THEN PRINT AT 8,5;"FACTURA "+STR$ NF+" PERTENECE";AT 10 
,8;"A OTRO FICHERO": BEEP 2,10: PAUSE 200: GO TO 1399 

1430 LET FI= FN HO: IF FI>=FN IO THEN GO TO 1399 

1440 FOR 1=1 TO'NM: LET M$(I)=" NEXT I 

1450 LET M$(3)=I$CFI)(1 TO 20): LET M$(4)=I$(FI)(21 TO 22); LET M$(5)=I$(FI)(23 TO 42); 
LET M$(6)=I$(FI)(43 TO 44): LET M$(?)=I$(FI)(45 TO 48): LET M$(8)=I$(FI)(49 TO 55): 
LET M$(9)=I$(FI)(56 TO 61); LET M$(1t)=I$(FI)(62 TO 64) 

1455 IF (M$(8)(1)) = " " OR (M$(8)(1)) = "0" OR M$(9)(1) = " " OR M$(9)(1) = "0" THEN GO TO 1460 

1456 LET M$(10)-STR$ (VAL M$(8)+VAL M$(9)) 

1460 60 SUB 5000 

1470 PRINT AT 3,10;M$(3);AT 4,10;M$(4);AT 5,10;M$(5);AT 6,10;M$(6);AT 7,10;M$(7)(1 TO 2) 
;"/";M$(7) (3 TO 4); '719";F$(2 TO 3);AT 8,10;M$(8);AT 9,10;M$(9);AT 10,10 ;M$(10) 

;AT 11,10;MS(11) 

1500 IF R1=1 THEN GO TO 1285 
1510 IF Rl=2 THEN GO TO 1290 
1590 REM 

1600 REM BUSQUEDA FACTURA POR NUMERO 
1605 REM 

1610 CLS : LET Rl =2 
1620 GO TO 1420 
1790 REM 

1800 REM BUSQUEDA SELECTIVA 

1801 REM 


1805 CLS : LET R2=0 

1810 INPUT "COD.SERV.? (max.2c) ";A$: IF LEN A$=1 THEN LET A$=A$+" " 

1820 INPUT "COD.CLIENTES.? (max.2c) ";B$: IF LEN B$=1 THEN LET B$=B$+" 

1830 INPUT "FECHA INFERIOR :DIA Y A 0 ?(4c.)";C$: IF C$="" THEN LET C$="0101" 
1835 IF LEN C$<>4 THEN GO TO 1830 

1840 INPUT "FECHA SUPERIOR :DIA Y A 0 ?<4c.)";D$: IF D$="" THEN LET D$="3112" 
1845 IF LEN D$<>4 THEN GO TO 1840 
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Aplica' ioneS 


1850 INPUT "IMPORTE MIN.(SIN IVA)?(max .7c.) : E$: IF E$=''" THEN LET E$= M 0000000" 

1860 INPUT "IMPORTE MAX.(SIN IVA)?(max.7cL$: IF L$=" M THEN LET L$="9999999" 

1870 INPUT "IVA MINIMO?(max.6c) :",N$: IF N$="" THEN LET N$="000000" 

1880 INPUT "IVA MAXIM0?(max.6c) :",Q$: IF Q$= ,,, ‘ THEN LET Q$= ,, 999999 ,, 

1890 INPUT "COD.AUX.tMAX.3c.)? :R$: IF LEN R$=1 THEN LET R$=R$+" " 

1895 IF LEN R$=2 THEN LET R$=R$+" " 

1900 CLS : PRINT AT 1,5;"PETITION SELECTIVA" 

1901 PRINT AT 3,0;"COD.SER./PROD. :";A$ 

1902 PRINT AT 5,0;"COD.CLI./PROV. :";B$ 

1903 PRINT AT 7,0;"FECHAS TO 2);".";C$<3 TO 4);".";F$(2 TO 3);"/";D$(1 TO 2); 

".";D$(3 TO 4);".";F$C2 TO 3) 

1905 PRINT AT 9,0;"IMPORTES ;";E$;"/";L4 

1906 PRINT AT 11,0;"IVA :";N$;"/";Q$ 

1907 PRINT AT 13,0;"COD.AUX. :";R$ 

1910 INPUT "CONFORME ? (S/N) ";P$: IF P$="N" OR P$="n" THEN 60 TO 1800 

1915 IF R2=1 THEN GO SUB 2050 

1920 LET FI=VAL I$(NI)-1 : LET NF= FN PO-1 

1925 FOR H=1 TO FI: LET NF=NF+1 

1930 IF AS^:"" THEN GO TO 1932 

1931 IF A$<>I$(H)(21 TO 22) THEN GO TO 1999 

1932 IF B$= m " THEN GO TO 1935 

1933 IF B$<>I$(H)(43 TO 44) THEN GO TO 1999 

1935 IF I$(H)(49 TO 55)=" " AND E$="0000000" THEN GO TO 1940 

1936 IF I$(H)(49 TO 55)=" " AND E$<> M 0000000" THEN GO TO 1999 

1937 IF VAL I$(H) (49 TO 55XVAL E$ OR VAL I$(H)(49 TO 55)>VAL L$ THEN GO TO 199 

1940 IF I$(H)(56 TO 61)=" ” AND N$="000000" THEN GO TO 1944 

1941 IF I$(H) (56 TO 61)=" " AND NS<> r, 000000" THEN GO TO 1999 

1942 IF VAL ISCH) C56 TO 61XVAL N$ OR VAL I$(H)(56 TO 61)>VAL Q$ THEN GO TO 1999 
1944 IF R$= ,M ' THEN GO TO 1948 

1946 IF I$(H)(62 TO 64)<>R$ THEN GO TO 1999 

1948 FOR 1=1 TO NM; LET M$(I)=" NEXT I 

1950 LET M$(3)=I$(H)(1 TO 20):LET M$(4) = I$CH)(21 TO 22):LET M$(5) = I$(H)(23T0 42):LET MSC6) 
=I$(H)(43T0 44);LET M$(7)=I$(H)(45T0 48):LET M$(8)=I$(H)(49T0 55):LET M$ (9)=I$(H) 
(56T0 61>:LET M$(11)=I$(H)(62T0 64) 

1955 IF R2=1 THEN GO TO 2055 
1960 CLS : GO SUB 5000 

1970 PRINT AT 3,10;M$(3);AT 4,10;M$(4);AT 5,10;M$(5) ; AT 6,1G;M$(6);AT 7,10;M$(7);AT 8,10 
;M$(8);AT 9,10;M$(9);AT 11,10;M$(11) 

1975 PRINT 1 *"CUALQUIER TECLA PARA CONTINUAR" 

1980 PAUSE 0 

1999 NEXT H: RETURN 

2000 REM 

2001 REM LISTADO SELECTIVO 
2005 REM 

2010 LET R2=1: LET RENG=1 

2020 CLS : PRINT AT 8,2;"C0NECTE LA IMPRESORA Y SITUE";AT 10,2;"EL PAPEL AL COMI 

ENZO DE HOJA";AT 18,5;"PULSE CUALQUIER TECLA": PAUSE 0 

2025 RANDOMIZE USR 64973; LPRINT : REM PARA INTERFACE INDESCOMP 

2030 CLS : GO TO 1810 

2050 GO SUB 2100: RETURN 

2055 LPRINT NF;TAB 5;M$(3);M$(4)(1 TO 3);M$C5);M$(6) (1 TO 3);M$(7)(1 TO 4) + F$(2 
TO 3);" M$(8)(1 TO 9);M$(9)(1 TO 8);M$C11)Cl TO 3) 

2060 LET RENG=RENG+1 : IF RENG=63 THEN PRINT LET RENG=4 

2070 GO TO 1999 

2100 LPRINT '"TAB 20; "RELACION DETALLADA (SELECTIVA ) DE FACTURAS"' TAB 20;"==== 
====================================“="''TAB 30;"CRITERIOS DE SELECCION" 1 TAB 30 
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El mejor soft para los leetores 


te lo ofrece MENSUALMENTE 


tueAOian- 


rWTHIHQ 


(Basada en ia famosa serie de TVE). 

Salta de un sistema planetario 
a otro. Neutral iza a las luerzas de 
Zoltar. 

[Experiments la gran 
satisfaccidn de ser director y 
protagonista en la mas 
extraordinaria guerra galactica! 


Graciosa aventura del simpar 
Herbert, quien con sus padres, 
Wally y Wilma, se encuentran 
perdidos en una isla paradisiaca. 
Los peligros acechan y hay que 
prevenirse, sobre todo, de los 
cam bales. 


Organiza tus propios Juegos 
Oltmpicos de invterno. Participa 
tu mismo en las mas variadas 
pruebas de competicibn sobre 
hielo y nieve. 

jConvibrtete en un gran 
campebn! 


sen*^ 

fiEEHr! 























































































r- • No hay cuota alguna de entrada. Basta ser lector habitual de 

INPU T SINCLAI R. _______ 

• No hay obligacion de compras mlnimas por aho. 

• Podras comprar soft (programas y/o juegos individualmente), 
siempre con un 10% de DESCUENTO, o acogerte a la oferta 
del mes de 3 JUEGOS AL PRECIO DE 2. 

, UN GRAN CLUB PARA Tl, AMIGO LECTOR 

Lo unico que has de hacer es comprar INPUT SINCLAIR cada mes y ver las 
ofertas que en este CLUB DE ELITE se ofreceran. Las novedades de cada mes 
enriqueceran el fondo del CLUB, pues seguiran ofertandose, ya individualmente, 
en los meses sucesivos. 



cTiem m SPECTRUM 48 K? 

■h 

Para todo el que posea uno de estos magnfficos 
ordenadores personales, la oportunidad de estar mas al dia 
ha llegado, por fin. CLUB DE ELITE, el mejor soft para los 
lectores de INPUT, te ofrece a partir de ahora lo mejor y mas 
actual del software mundial, siempre con excepcionales ofertas 


PIDE LAS 3 
NOVED ADES DEL MES 

Y PAGA SOLO 2 
jAhorrate 2.300 
6 2.100 ptas.! 

iATU 

ELECCION! 


iTodo son ventajas en este CLUB! 


de 


iVIA EL CUPON ADJUNTO HOY MISMO 

Te enviaremos los juegos por ti escogidos, ya sea la oferta del mes o cualquiera 
elfos individualmente, directamente a tu domicilio, sin cargo adicional alguno. 






■ ■ 




■ m 




ENVIA 

ESTE CUPON 
DEBtDAMENTE 
FRANOUEADO 
A: 

EDISA, L6pez de 
Hoyos, 141 
28002 Madrid, 
o bien Itemanos 
por tel^fono 
al (91) 415 9712 


y envienme contra reembofso los juegos de la oferta del mes, cuyos nume- 
ros les indico en las casillas correspondientes, por los que me facturar&n el pre- 
cio de 2 juegos solamente. GRATIS 


, envfenme iinicamente y contra reembolso el juego cuyo numero indico en 
la casilla correspondiente, con un descuento del 10% sobre el P.V.P. 
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2121 LPRINT TAB 26;"COD.SER./PROD. :";A$ 

2122 LPRINT TAB 26;"COD.CLI./PROV. :";B$ 

2123 LPRINT TAB 26;"FECHAS :";C$C1 TO 2);".";C$(3 TO 4);".";F$(2 TO 3);" / ";D 4(1 TO 
2);D$(3 TO 4>;".";F$(2 TO 3) 

2125 LPRINT TAB 26;"IMPORTES :";E$;" / ";L$ 

2126 LPRINT TAB 26;"IVA / ";Q$ 

2128 LPRINT TAB 26;"COD.AUX. :";R$ 

2130 LPRINT : LPRINT "NF DESCRIPCION COD PROV./CLIENT. COD FECHA IMPORTE 

IVA OBS"' 

2131 LPRINT - - - - - 

2135 LPRINT : LET RENG=20 

2140 RETURN 
2190 REN 

2200 REM TABLA CODIGOS SERVICIOS/PRODUCTOS IMPORTANTES 

2201 REM 

2205 CLS : PRINT "REF. SERV./PRODUCTO" 

2210 FOR 1=1 TO (NJ-1) 

2220 PRINT I;TAB 5;J$(I) 

2230 NEXT I 

2235 INPUT "DESEA INCLUIR 0 MODIF.? (S/N)";P$: IF P$="N" OR P$="n" THEN RETURN 
2240 INPUT "REF.? ";REF’"SERV./PRODUCTO? ";P$ 

2250 IF REFC1 OR REF>=NJ OR LEN P$>LJ THEN 60 TO 2240 
2260 LET J$(REF)=P$: GO TO 2200 
2390 REM 

2400 REM TABLA CODIGOS CLIENTES IMPORTANTES 

2401 REM 

2405 CLS : PRINT "REF. PROVEEDOR/CLIENTE" 

2410 FOR 1=1 TO CNK-1) 

2420 PRINT I;TAB 5;K$(I> 

2430 NEXT I 

2435 INPUT "DESEA INCLUIR 0 MODIFICAR? (S/N)";P$: IF P$="N" OR P$="n" THEN RETURN 
2440 INPUT "REF.? REF "'CLIENTE/PROVEEDOR? ";P$ 

2450 IF REF<1 OR REF>=NK OR LEN P$>LK THEN GO TO 2440 
2460 LET K$(REF)=P$: GO TO 2400 
2590 REM 

2600 REM RESUMEN LIQUIDACION HACIENDA 

2601 REM 

2605 CLS : PRINT AT 10,10;"UN MOMENTO..." 

2610 LET R3=0: LET FI=VAL I$CNI)-1 : LET VALORl=0: LET VALOR2=0: LET VALIVA=0 
2620 DIM M<10): FOR K=1 TO 10: LET MCK)=0: NEXT K 
2630 FOR H=1 TO FI 

2640 LET R3=0: IF I$(H)C62)="C" OR ISCH)(62)="c" THEN LET R3=1 
2645 IF I$(H)C49)=" " THEN LET VALOR1=0: GO TO 2650 
2647 LET VAL0R1=VAL ISCH)C49 TO 55) 

2650 IF I$(H)<56)=" " THEN LET VAL0R2=0: GO TO 2660 

2652 LET VAL0R2=VAL ISC HD(56 TO 61) 

2660 IF R3=0 THEN LET M(1 ) = M(1)+VAL0R1 : LET M(2)=M(2)+VAL0R2 

2662 IF R3=0 AND VAL0R1=0 THEN LET M(4)=M(4)+1 

2663 IF R3=0 AND VAL0R2=0 THEN LET M(5)=M(5)+1 

2670 IF R3=1 THEN LET M(6)=MC6)+VAL0R1: LET M(7)=M(7)+VAL0R2 

2672 IF R3=1 AND VAL0R1=0 THEN LET M(9)=M(9)+1 

2673 IF R3=1 AND VAL0R2=0 THEN LET MCI0)=M(10)+1 

2680 NEXT H 

2690 CLS : PRINT "RESUMEN FACTURAS NUM. IF VAL <I$(NI))<>1 THEN PRINT FN PC);" / 1 


16 INPUT 





















FN P()+(VAL I$(NI)~2) 

2692 PRINT AT 1,0;"FICHER0 :";F$ 

2694 PRINT : PRINT TAB 7;"IMP0RTE IVA TOTAL" 

2696 PRINT : PRINT M PAG0S";TAB 7;M(1);TAB 16;M(2);TAB 24;M(1)+M(2) 

2698 PRINT "COBROS";TAB 7;M(6);TAB 16;M<7);TAB 24;M(6)+M(7) 

2700 PRINT : PRINT "NOTA EN ESTE FICHERO HAY LAS SI6UIENTES FACTURAS SIN 

VALORACION EN LOS CAMPOS 

2710 PRINT : PRINT TAB 10;"IMPORTE:";M<4)+HC9);TAB 24;"FACT." 

2720 PRINT TAB 10;“IVA :";M(5)+M{10);TAB 24;"FACT.": PRINT 

2725 LET VALIVA=M<2)-MC7> 

2727 IF VALIVA>=0 THEN PRINT TAB 8; "DIFERENCIA IVA PRINT TAB 8;"========== 

PRINT TAB 1;"A FAVOR DE LA EMPRESA :";VALIVA 
2729 IF VALIVACO THEN PRINT TAB 8; "DIFERENCIA IVA PRINT TAB 8;"========= ===": 

PRINT TAB 3;"A FAVOR DE HACIENDA ;";ABS VALIVA 
2750 PRINT : PRINT : PRINT : PRINT TAB 2;"< PULSE CUALQUIER TECLA PAUSE 0 

2799 RETURN 

2800 REM 

2801 REM ELECCION DE FICHERO 

2802 REM 

2810 INPUT "REF.(A O/NUM) DEL FICHERO CON ELQUE SE VA A TRABAJAR ? (EJ.8603)R$: IF 
LEN R$<>4 THEN GO TO 2810 
2815 LET R$="I"+R$: IF R$=F$ THEN GO TO 2960 
2825 CLS : INPUT "FICH. NUEVO?(N)/ DE CASSETTE?(C)(N/C>?";P$ 

2830 IF P$<>"N" AND P$<>"n" AND pSO n C" AND p$<>"c" THEN GO TO 2825 
2835 CLS : PRINT AT 8,0;"N0 OLVIDE OLE EL FICHERO ACTUAL(F$;*') QUEDARA DESIRUIDO 
PARA DAR PASO AL CR$;")" " "PARA GRABARLO PRIMERAMENTE ENCASSETTE EJECUTE LA 

OPCION 10": BEEP 2,10 

2840 INPUT " SALIR AL MENU? (S/N) ";L$: IF L$="S" OR L$="s" THEN GO TO 2960 
2850 IF PS^'C" OR P$="c" THEN GO TO 2940 
2865 CLS : PRINT AT 10,10;"UN MOMENTO..." 

2880 LET F$=R$: FOR 1=1 TO NI: LET NEXT I: LET I$(NI)='’1": LET F 1=1 

2890 GO TO 2960 

2940 LET F$=R$: CLS : PRINT FLASH 1;AT 8,4;"COLOQUE CASSETTE ADECUADA";AT 10,15;"Y";AT 
12,4;"PONGALA EN MARCHA (PLAY)": BEEP 2,10 
2950 LOAD FS DATA ISC) 

2955 LET FI=VAL ISCNI) 

2960 RETURN 
2990 REM 

3000 REM ARCHIVO EN CASSETTE 

3001 REM 

3010 INPUT "PROGR.+FICH. (P) / FICH.IVA CF) (P/F)? ";P$: IF P$<>"P" AND P$<>"p" AND P$<> 
"F" AND P$<>"f" THEN GO TO 3010 

3020 CLS : PRINT INVERSE 1;AT 10,9;"DESCONECTE EAR";AT 12,3;"P0NGA EN MARCHA LA 
CASSETTE";AT 13,10;"(RECORD*PLAY)AT 15,11;"PULSE ENTER" 

3030 IF P$(1)="F" OR P$(1)="f" THEN GO TO 3070 

3040 SAVE "CGFIVA" LINE 100 

3050 GO TO 3080 

3070 SAVE F$ DATA ISO 

3080 CLS : PRINT AT 12,8; FLASH 1;"PARE LA CASSETTE": BEEP 4,10 
3190 RETURN 
3990 REM 

4000 REM BYTES UDG'S CASTELLANOS 

4001 REM 

401C FOR 1=1 TO 11: READ L$ 

4020 FOR K=0 TO 7; READ V: POKE CUSR LS)+K,V: NEXT K 
4030 NEXT I 
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4040 

4045 

4050 

4055 

4060 

4065 

4070 

4075 

4080 

4085 

4090 

4100 

4990 

5000 

5005 

5200 

5220 

5235 

5240 

5245 

5250 

5255 

5260 

5265 

5270 

5275 

5280 

5300 

5990 

6000 

6005 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6490 

6500 

6505 

6510 

6520 

6530 

6540 

6550 

6560 

6570 

9000 

9010 


DATA "A",4,8,56,4,60,68,60,0 
DATA "E",4,8,56,68,120,64,60,0 
DATA "I",4,8,0,24,8,8,8,0 
DATA "O",4,8,56,68,68,68,56,0 
DATA "U",8,16,0,68,68,68,56,0 
DATA "J",8,0,8,8,8,8,8,0 
DATA "K",0,68,0,68,68,68,56,0 
DATA "L ,, ,66,0,66,66,66,66,60,0 
DATA "C",16,0,16,32,68,68,56,0 
DATA *'N",0,56,0,56,68,68,68,0 
DATA "M",60,0,98,82,74,70,66,0 
RETURN 
REM 

REM FORMATO DETALLE DATOS FACTURAS 
REM 

PRINT AT 
PRINT AT 
PRINT AT 
PRINT AT 
PRINT AT 
PRINT AT 
PRINT AT 
PRINT AT 
PRINT AT 
PRINT AT 
PRINT AT 
PRINT AT 
RETURN 
REM 

REM LISTADO SERVICIOS/PRODUCTOS 
REM 

CLS : PRINT "REF. SERV./PRODUCTO" 

FOR 1=1 TO < NJ—1) 

PRINT I;TAB 5;J$(I) 

NEXT I 

PRINT '"PULSE CUALQUIER TECLA PAUSE 0 
CLS :G0 SUB 5000 

PRINT AT 3,10;M$(3);AT 4,10;M$(4>;AT 5,10;M$(5);AT 6,10;M$(6): RETURN 
REM 

REM LISTADO CLIENTES 
REM 

CLS : PRINT "REF. SERV./PRODUCTO" 

FOR 1=1 TO CNK-1) 

PRINT I;TAB 5;K$(I) 

NEXT I 

PRINT "'PULSE CUALQUIER TECLA PAUSE 0 
CLS : GO SUB 5000 

PRINT AT 3,10;M$(3);AT 4,10;M$<4);AT 5,10;M$(5);AT 6,1D;M$(6>: RETURN 
DEF FN OC>=VAL F$<4 TO 5): REM No. ORDEN CASSETTE 

DEF FN NO = (NI-1 )*(VAL F$(4 TO 5)-1)+VAL I$(NI): REM No.NUEVA FACTURA EN FU 


0,3;"***DETALLE DE FACTURAS***" 

I, 0;"FICHER0 :";"No. ";VAL F$C4 TO 5);" DE 19";VAL F$(2 TO 3) 
2,0;"FACT. No.:";NF 

3,0;"DESCRIPC.:" 

4,0;"COD.SERV. 

5,0;"PROV/CLI.:" 

6,0;"C0D.P./C. 

7,0;"FECHA 
8,0;"IMPORTE 
9,0;"IVA 
10,0;"TOTAL 

II, 0;"COD.AUX. 


NCION No. ORDEN DEL FICHERO 

9020 DEF FN PO = (NI-1 )*(VAL F$(4 TO 5)-1)+1: REM No.MINIMO FACTURA DEL FICHERO 


9030 DEF FN FO = (NI-1 > *(VAL F$(4 TO 5)): REM No.MAXIMO FACTURA DEL FICHERO 
9040 DEF FN HO=NF-(NI-1 )*INT (NF/(NI-1>): REM No.DE ORDEN DEL FICHERO EN FUNCION DEL 
No.DE FACTURA 

9050 DEF FN IO=VAL I$CNI): REM No.ORDEN DEL FICHERO PARA INCLUSIONES 


18 INPUT 
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U’O? tardo 


Desde su I a bora tor io subtenrarteo. el 
orefaslo ELVJN, esta tomando a la 
pobladon inundial coimo «ehen. Debe 
consegmr llegar at centra de control 
tie EL VIM para saivar at mundo 


Es sin duda el paquele da utilidad gra 
fita. mas poiente para su SPECTRUM 


COMMODORE 64/128 
SPEC!RUM Y AMSTRAD 


Solo Ins mas audaces scran capaces 
de descubrtr el MIETERIG DEL PEN- 
TAG 1 c Sera Vd. uno da ell os? 

SPECTRUM 


SPECTRUM 




1 Ha conseguido el oro en SUMMER 
GAMES y SUMMER GAMES I!? ,Ahora 
estamos en WINTER GAMES?, y que 
increible marco para pariicipai en 
: seis nuevas y escitantes competlcio- 

nes COMMODORE 64/126. SPECTRUM 
y AMSTRAD. 
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La laberinlti magieo. Introduce en el 



movimienio mdlmensionai del pla- 



net a Newgana III y encuentra las pie* 



zas necesanas para completer el 



robot. 

=■- 


SPECTRUM 



STEVEN SPIELBERG presents COM¬ 
MODORE 64/128 SPECTRUM. AMS- 
TRAD 


El mas reciente avarice lecnico. Vd 
puetie realgar una jormada completa 
dentro de Lma capsuta espacial desde 
que se levanta de la superficie de la 
lierra y amide a un enojerirc en el 
■ espacio, hast a que alerriza nueva- 
mente Compruebe su habllidad.. 

SPECTRUM COMMODORE 


PROXIMA PUBUCACION 


Trunkie, el hombre elefante y tu supe- 
rais las trampas y logiais encontrar a 
Gregago, el gran dios de oro. 






■•a:v 


• ■ : - : - 




* ' rSf -•* i 


lfi; y «iru 






SPECTRUM 








rrs* 






\ * 












'vil 




















- : o'* /. 


-t 














Jji • 


.*# 

























































































































■H 


z ~ C6c jigo maq u,na 

Cow y 












PROGRAMACION 
EN CODIGO MAQUINA 


BUSCAN DO U N LUGAR PAR A 

_ EL CODIGO M AQUINA 

MONITORES DE CODIGO MAQUINA 

USO DEL MONITOR 
EJE CUCION DEL PROGRAMA 


Cuando enciendes tu ordenador, 
este se va automat ieamente a) BASIC, 
For cso tienes que usar un programa 
en BASIC para POKEar tu programa 
en codigo maquina y un comando BA¬ 
SIC para ejecutarlo. 


Al entrar en el maravilloso mirndo 
de la programacion en lenguaje ma¬ 
quina, te encontraras eon bastantes 
paradojas extranas. Aunque el codigo 
maquina es el lenguaje realmente uti- 
lizado por el propio microprocesador, 


no puedes teclearlo direcfamente en 
tu ordenador domestico, Tienes que 
introducirlo a traves de otro progra¬ 
ms, lo que en tu micro es equivalents 
a utilizer el BASIC. Tampoco puedes 
ejecuiar un programa en cddigo ma- 
































































Cl Duque de Sesto, 50. 28009 MADRID 
Telefs.: (91) 275 96 12 - 274 53 80 
(METRO O'DONNELL O GOYA) 



SOFTWARE: jjCOMPRANDO 1 PROGRAMA, GRATIS 1 BOLIGRAFO CON RELOJ INCORPORADO!! 


MIKIE_ 

IMPOSIBLE MISSION_ 

PARADISE_ 

MILLION (4 JUEGOS)___ 

COSMIC WARTOAD_ 

SGRIZAM_ 

BEACH HEAD II_ 

OLE TORO_ 

TASWORD TWO (microdrive) 


2.100 ptas. 
2.190 ptas. 
2.100 ptas. 
2.500 ptas. 
2.100 ptas. 
1.950 ptas. 
2.100 ptas. 
2.100 ptas. 
1.400 ptas. 


ZORRO_ 

DINAMITE DAN.___ 

CAMELOT WARRIOR___ 

CRITICAL MASS___ 

N.O.M.A.D____ 

RAM BO __ 

TOMAHAWK_ 

NIGHT SHADE_ 

DISENADOR DE JUEGOS (microdrive) 


2.300 

ptas. 

2.100 

ptas. 

2.100 

ptas. 

1.950 

ptas. 

2.100 

ptas. 

2.100 

ptas. 

2.495 

ptas. 

1.950 

ptas. 

1.400 

ptas. 


CONVIERTE TU SPECTRUM A PLUS: 
jj7.990 PTAS.!! 


LAPIZ OPTICO DK'TRONICS 
jj3.680 PTAS.!! 


j jNUEVOS PROGRAMAS EXPLOSIVOS DINAMICU 

ALI BEBE OVERY 

880 ptas. 

KRIPTON RAIDERS 

880 ptas. (numeros en grande) 

TOMMY 

880 ptas. 


INTERFACE-1 

10.900 

MICRODRIVE 

10.900 


CASSETTE ESPECIAL PARA 


AMPLIACIONES DE MEMORIA 

ORDENADOR 5.295 PTAS. 


jj3.995 PTAS.!! 


SERVICIO TECNICO DE REPARACION 
TARIFA FIJA: 3.600 PTAS. 




SPECTRUM PLUS: 

31.500 





QUICK DISK 2,8" 


29.995 



OFERTAS JOYSTICK QUICK SHOT 

QUICK SHOT II + INTERFACE 3.695 
QUICK SHOT V + 4.350 


OFERTA IMPRESORAS: TODAS LAS MARCAS 
CON UN j j 20% DTO. SOBRE P.V.P.!! 


PRECIOS EXCEPCIONALES PARA TU AMSTRAD 
CPC-464, CPC-6128 Y PCW-8256 


TECLADOS PROFESIONALES: 

—SAGA-1 9.900 

—INDESCOMP 13.195 


CARTUCHOS MICRODRIVE 

495 

CINTA C-15 ESPECIAL ORDENADOR 

85 

DISKETTES 5% w 

350 

INTERFACE CENTRONICS/RS-232 

8.495 

DISKETTES 3%" 

995 

AMPLIFICADOR DE SONIDO 

2.450 

CARTUCHERAS PARA MICRODRIVE 

250 

INTERFACE DOBLE KEMPSTON + ROM 

3.795 


Pedidos contra reembolso sin ningun gasto de envlo. Telefs.: (91) 275 96 16 - 274 53 80, o escribiendo a 

MICRO-1. Cl Duque de Sesto, 50. 28009 MADRID 





























































quina de una forma inmediata. Tienes 
que llamarlo desde un programa en 
BASIC o utilizar una simple instruc¬ 
tion del BASIC. 

Para introducir una rujina en codi- 
go maquina tienes que hacerlo me- 
diante POKE,s byte a byte, en la me- 
moria de tu ordenador, Paradojica- 
mente en el Spectrum y el ZX81 no se 
puede POKEar de un numero hexa¬ 
decimal, si no solo numeros dec! males. 
For eso, los hexadecimales de tus ru- 
tinas en eodigo maquina tienes que pa- 
sarlos a decimales antes de introducir- 
ios. 


DONDE PONERLO 


Antes de introducir un programa en 
lenguaje maquina, tienes que decidir 
donde lo vas a ubicar. Esta es una 
cuestion muv importante, Evidente- 
mente no lo pucdes poner en una zona 
que util ice el propio ordenador, ya 
que sobre tu programa se escribirian 
nuevos dates procedentes de la ROM, 
y el ordenador podria funeionar inde- 
bidamente, por haber sido borrados 
datos vitalcs. 

Tambien tienes que ser precavido al 
utilizar el area reservada para el BA¬ 
SIC, Como tu rutina en eddigo maqui¬ 
na puede ser llamada desde un progra¬ 
ma en BASIC, podria n escribirse unas 
cosas encima de otras, haciendo que 
todo deje de funeionar. 

Con programas pequenos puedes 
utilizar zonas como el buffer destina- 
do a la cinta, suponiendo que no pie ri¬ 
ses utilizar la cinta para otra cosa, 

En el Spectrum puedes utilizar la 
zona de graficos definidos por el usua- 
rio —entre SFF58 y SFFFF en el mo¬ 
de lo de 48K— siempre que no pienses 
usar los GDU, Normalmente los pro¬ 
gramas en eddigo maquina se colocan 
entre la zona de GDUs y el final de la 
zona del BASIC, desplazando el 
RAMTOP hacia abajo en la memoria. 

De esta forma la zona del BASIC 
se acorta, pero como no puede exten- 
derse mas alia del RAMTOP, el eddi¬ 
go maquina queda protegido contra 
las sobreescrituras, 

RAMTOP es una de las variables 
del sistenia y su posicion esta dada por 


el puntero almacenado en las direccio- 
nes de memoria $5CB2 y $5CB3. Para 
desplazar hacia abajo el RAMTOP, 
no tienes mas que POKEar con un va¬ 
lor mas pequeho en estas dos direccio- 
nes, Pero el Spectrum tiene otro co¬ 
mando para esto: CLEAR. Su efecto 
es esencialmeme el mismo, debiendo 
ir seguido por las direcciones decima¬ 
les de la posicion en que quieres situar 
el RAMTOP, 

El com an do CLEAR borra el fiche- 
ro de pantalla —igua! que CLS— y 
tambien todas las variables, Inicializa 
la posicion de PLOT a 0,0, es decir, 
en la parte inferior izquierda, restau¬ 
rs el puntero de los DATA al princi¬ 
ple. borra la pila de GOSUB y la pone 
debajo del nuevo valor de RAMTOP, 
En un Spectrum de I6K S el comando 
normal es: 

CLEAR 31999 

Su cfecto es desplazar el RAMTOP 
hacia abajo hasta 31999 6 $7CFF (en 
hexadecimal), dejando los 600 bytes 
que que dan por encima, es decir has¬ 
ta el final del area de los GDUs que 
esta en 32600, protegidos para los pro¬ 
gramas en eodigo maquina. 

En el modelo de 48K, la forma 
usual de! comando es: 

CLEAR 63999 

Tambien aqui se desplaza el RAM- 
TOP, de forma que el area del BA¬ 
SIC" termina ahora en 63999, 6 SF9999 
y tus programas en eodigo maquina 
pueden empezar en 64000 6 SFAOO. 

En la mayoria de los cases, tendras 
asf espacio de memoria mas que sufi- 
eente para tus programas en eodigo 
maquina. De hecho no tienes que de¬ 
jar tanto espacio, pero siempre es me- 
jor prever algo mas de lo que necesi- 
tes por si quieres corregir o aumentar 
el programa mas adelante. 

Para programas mas largos en leo- 
guaje maquina, puede que tengas que 
desplazar el RAMTOP aun mas, Pue¬ 
des hacer un CLEAR hasta 23821. 
Pero en la practica no puedes hacer 
esto, ya que con el RAMTOP tan aba¬ 
jo no te cabra ni una linea de BASIC, 

En el ZX8I se puede desplazar el 
RAM I OP POKEando en las direccio¬ 


nes de memoria 16388 y 16389 para 
conseguir un area protegida en la que 
tus programas en eodigo maquina es- 
ten seguros. Pero se presenta el pro¬ 
blems de que asf no puedes guardar 
programas en esa zona. 

Puedes guardar pequenos progra- 
mas en lenguaje maquina—de menos 
de 32 bytes— POKEando en el buffer 
de la impresora, que ocupa las direc¬ 
ciones de memoria 16444 a 16476, su¬ 
poniendo naturalmente que no vayas 
a utilizar !a impresora. Flay otras pe- 
quehas zonas en las que puedes FO- 
KEar programas en lenguaje maqui¬ 
na, pero tampoco en estos casos po- 
dras guardarios (con SAVE). En el 
ZX81 solo se pueden guardar progra¬ 
mas en la zona de programas en BA¬ 
SIC. 

Tienes tres maneras de poner tus 
programas de eodigo maquina en el 
area del BASIC y protegerlos contra 
la sobreescritura, Los puedes introdu¬ 
ce como sentencias REM, como ma¬ 
trices o como cadenas de caracteres. 
En general encontraras que el primer 
metodo es ei mejor. 

Para introducir un programa en co- 
digo maquina con sentencias REM de- 
bes calcular su longitud, o lo que es lo 
mismo, contar sus bytes, En la prime- 
ra linea de tu programa en BASIC, te- 
clea REM seguido por una serie de 
puntos, cuyo numero debe ser por lo 
menos igual al numero de bytes de tu 
programa en eodigo maquina. En rea¬ 
lidad no hace falta que scan puntos lo 
que pongas; cualquier caracter puede 
servir para llenar la sentencia REM, 
pero conviene que scan todos iguales 
para resaltar mejor el final del progra¬ 
ma en eodigo maquina, 

Seguidamente puedes almacenar tu 
programa en eodigo maquina median- 
te POKE en las posiciones de memo¬ 
ria ocupadas por la sentencia REM, a 
razon de un byte cada vez. Si tu sen¬ 
tencia REM es la primera tinea del 
programa BASIC, el area dispomble 
empieza en la posicion de memoria 
16514. 

Otra manera de crear espacio pro¬ 
tegido es dimensionar una matriz. La 
siguiente linea de BASIC: 

10 DIM Ad00) 


ass INPUT 
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LA PRINCESA 
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Te dejara libres 500 posiciones de 
memoria en la zona de variables ya 
que cada elemento de la matriz en el 
ZX81 deja cineo posiciones libres para 
almacenar numeros en punto flotante. 
En este caso, para saber dbnde empe* 
zara a almacenarse tu programa en co- 
digo maquina, tienes que PEEKear la 
variable del sistema VARS, que se al- 
macena en las direcciones 16400 y 
16401, con un comando directo tai 
como el siguiente: 

PRINT PEEK 164Q0+PEEK 16401 
+6 

Esto te dans la direction de comien- 
zo del area protegida que acabas de 
crear, las seis direcciones extra de me* 
moria contienen detalles sobre la ma¬ 
triz. Desde aqui tienes que POKEar 
tu programa en codigo maquina byte 
a byte, 

Otra posibilidad es crcar espacio en 
una cadena de caracteres, con una li¬ 
ne a de programas BASIC como la si¬ 
guiente: 

ID LET S$=". 11 

Poniendo mas puntos que bytes 
contenga tu programa en codigo ma¬ 
quina, Tambi6n aqui, el espacio pro- 
tegido aparece al principle de la zona 
de memoria dedicada a las variables. 
Para ha liar la direccion de comienzo 
tienes que PEEKear VARS y sumarle 
seis, En este caso las seis direcciones 
de memoria extra corresponden al 
nombre de la cadena, 

Los dos ultimos metodos tienen el 
problema de que la zona de variables 
se borra cada vez que puisas la tecla 
CLEAR o cada vez que ejecutas 
(RUN) un programs en BASIC, en 
cuyo caso perderas tu programa en co¬ 
digo maquina. 


MONITORES DE CODIGO 
MAQUINA 


Los programas que siguen te permi- 
tiran introducir programas en lengua- 
je maquina, almacenarlos en cinta y 
examtnarlos en memoria. Antes de 
meter el programa tienes que hacer un 


CLEAR. Una vez que lo hayas hecho, 
hayas introducido el programa y pul- 
sado RUN, se te pedira que des una 
direccion de comienzo. Esta sera la di¬ 
reccion contigua a aquella a la que se 
extendio tu CLEAR. Recuerda que el 
comando CLEAR especifica la ultima 
direccion del BASIC y la direccion si¬ 
guiente es donde tiene que empezar tu 
programa en lenguaje maquina. 

A continuation teciea el monitor en 
codigo maquina que corresponda a tu 
ordenador: 


para Spectrum 

5 POKE 23658,8 

10 PRINT INVERSE 1;AT 5,6; 

"MONITOR PARA SPECTRUM " 
15 PRINT AT 8,4;”1TECLEAR 
CODIGO MAQUINA" 

20 PRINT AT 10,4;"2:- 
EXAMINAR MEMORIA" 

30 PRINT AT 12,4;"3:- 
ESCRIBIR BYTES" 

70 LET A$=INKEY$;IF A$<"1" 

OR A$>"3" THEN GO TO 70 
80 CLS: GO SUB 100+200*<VAL 
A$-1) 

90 RUN 

100 INPUT "DIRECCION INICIAL 
? ";SA 

110 INPUT LINE D$ 

120 IF D$="" THEN GO TO 110 
125 IF D$(1) = "#" THEN RETURN 
127 IF LEN D$=1 THEN GO TO 
110 

130 LET S$=D$(1 TO 2) 

140 FOR N=1 TO 2 
150 IF S$CN>>"9" THEN LET S$ 
(N)=CHR$ (CODE S$(N>-7) 
155 IF SStNJV?" OR S$(N>< 
"0" THEN PRINT FLASH 1; 

" CARACTER NO VALID0": 

GO TO 110 
160 NEXT N 

170 POKE SA,CCODE S$(1)-48) 
★16+CODE S$(2)-48 
180 PRINT SA,D$( TO 2) 

190 LET D$=D$(3 TO) 

200 LET SA=SA+1 
210 GOTO 120 

300 INPUT "DIRECCION INICIAL 
? ";SA 

310 INPUT "IMPRES0RA CS/N3? 
";LINE P$ 


320 LET ST=2: IF P$="S" THEN 
LET ST=3 

330 PRINT #ST;SA; 

340 FOR M=0 TO 7 
350 LET H$="##" 

360 LET H$(1)=CHR$(INT(PEEK 
(SA+M)/16)+48) 

370 LET H$(2)=CHR$(48+PEEK< 
SA+M)~16*(CODE H$(1)- 
48)) 

380 FOR N=1 TO 2 
390 IF H$(N)>"9" THEN LET H$ 
(N)=CHR$(CODE H$CN)+7) 
400 NEXT N 

410 PRINT #ST;TAB 7+3*M;H$; 
420 NEXT M 
440 LET SA=SA+8 
445 PRINT #ST:P0KE 23692,0 
450 LET A$=INKEY$:IF A$="" 
THEN GO TO 450 
460 IF A3>=CHR$ 13 THEN 
RETURN 

470 GO TO 330 

500 INPUT "DIRECCION INICIAL 
? ";SA 

510 INPUT "NUMER0 DE BYTES? 
";N 

520 INPUT "NOMBRE DEL 
FICHERO? ";N 

530 IF LEN N$<1 OR LEN N$>10 
THEN GO TO 520 
540 SAVE NSC0DE SA,N 
550 RETURN 


Teciea 


para ZX81 


10 PRINT AT 4,9; 

"MONITOR PARA ZX81" 

15 PRINT AT 8,4;"1 

TECLEAR CODIGO MAQUINA" 
20 PRINT AT 10,4;"2;- 
EXAMINAR MEMORIA" 

50 LET A$=INKEYS 
60 IF A$<"1" OR A$>"2" THEN 
GO TO 50 
70 CLS 

80 GO SUB 100+200*(VAL A$-1) 
90 RUN 

100 INPUT "DIRECCION INICIAL 
? "; SA 

105 INPUT SA 
110 INPUT D$ 

120 IF D$="" THEN GO TO 110 
125 IF D$(1)="$" THEN RETURN 
130 LET SS=D$(1 TO 2) 

135 SCROLL 


INPUT 25 














HO FOR N=1 TO 2 

150 IF S$(NX"0" OR S$<N)> 

"F" THEN PRINT "CARACTER 
NO VALIDO” 

IF S$(NX"0" OR S$(N)>"F" 
THEN GO TO 11D 
NEXT N 

POKE SA,(CODE S$<1)-28)* 

16+CODE S$(2)-28 
SCROLL 

PRINT SA / D${ TO 2) 

LET D $= D $ (3 TO) 

IF LEN D$=1 THEN GO TO 

110 

LET SA=SA+1 
GOTO 120 

PRINT AT 21,D;"DIRECCION 
INICIAL? " 

INPUT SA 
SCROLL 
";LINE P$ 

PRINT SA; 

FOR M=0 TO 7 
LET H$=''C2*ESPACI0]" 

LET H$C1)=CHR$(INT(PEEK 
(SA+M)/16)+28) 

LET H$C2)=CHR$(28+PEEK( 
SA+M)-16*(CODE H$<1)- 
28)) 

PRINT TAB 7+3*M;H$; 

NEXT N 
LET SA=SA+8 
LET A$=INKEYS 


155 

160 

170 

175 

180 

190 

195 

200 

210 

300 

310 

320 

330 

340 

350 

360 

370 


460 IF AI="" THEN GO TO 450 
470 IF A$=CHR$ 118 THEN 
RETURN 

480 GO TO 320 


FU NCiONAMI ENTO DEL 
MONITOR 

Al ejecutar el programa aparecera 
un menu que te preguntara si quieres 
«entrar codigo maquina», «examinar 
memoria» o «almacenar bytes en cin- 
ta» (excepto en el ZX8t). 

Si quieres entrar codigo maquina, 
pulsa I. Despues de fijar una direccion 


de comienzo y de pulsar [enter], 
puedes empezar a introducir el c6digo 
maquina. Este consiste en pares de df- 
gitos en hexadecimal que debes ir in- 
troduciendo de dos en dos. 

Puedes introducir todos los pares 
que quieras antes de pulsar | ENTER 


pero es mcjor teclear una linea cada 
vez y comprobar cuidadosamente los 


dlgitos antes de pulsar I ENTER I . Es 


400 

410 

440 

450 































COMMODORE CASSETTE 
COMMODORE DISKETTE 
AMSTRAD CASSETTE 
AMSTRAD DISKETTE 
SPECTRUM 


SOFTWlfll!, S * 


Oeseo recibir Ids juegDS que a coniinuacidn especifico. compromeiiendome al paga del impprie de Ids mismos 

Nombre ______ 
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CONTIENE UN MARAVIUOSO POSTER 
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mucho mas facil editarlos mientras to- 
davia estan en la pantalla que cuando 
ya estan en la memoria. 

Observa que tus programas tradu- 
cen a decimal los numeros que tu les 
das en hexadecimal, antes de POKEar 
los mismos a memoria. Esto se debe a 
que POKE es un comando del BA¬ 
SIC, y el BASIC de tu maquina no 
aeepta hexadecimales. No obstante* es 
mejor que pienses en hexadecimal* lo 
cual te data una sensation mas prdxi- 
ma a la forma de trabajar del ordena- 
dor. 

Los programas en codigo maquina 
deben terminar con un signo # en el 
Spectrum y un signo de dolar en el 
ZX81. Con esto regresaras al memi 
principal. 

Si eliges la opcion 2 para examinar 
la memoria, el progrania te pedira de 
nuevo una direction de comienzo; esta 
vez se trata del principle del drea de 
memoria que quieres examinar. Si 
quieres examinar todo el programs en 
codigo maquina, esta direccion de co¬ 
mienzo debe eomcidir con la direccion 
de comienzo de programa que le diste 
antes. 

Seguidamente en el caso del Spec¬ 
trum el programa te preguntara si 
quieres una copia de impresora del 
programa en lenguaje maquina, en el 
caso de que tengas impresora. Si no 
quieres copia y pulsas N, el programa 
imprimira la direccion de comienzo y 
el contenido de la misma, asf como las 
siete direcciones siguientes de memo¬ 
ria. 


Al pulsar cualquier tecla, excepto 
ENTER 1 , apareceran las primeras 


ocho direcciones junto con su conteni¬ 
do y cl contenido de los siete bytes si¬ 
guientes. Esto aparecera una linea 
mas abajo* pudiendo itnprimir de esta 
manera, linea a linea* todo el progra¬ 
ma en codigo maquina. 

Si descubres algun error y quieres 


corregirlo, pulsa | ENTER y el progra¬ 
ma volvera al menu. Pulsa entonces 1 
para introducir codigo maquina y el 
ordenador te pedira una direccion de 
comienzo. Tienes que darle la direc¬ 
cion del byte que estaba equivocado. 
Si hay toda una serie de bytes que es¬ 
tan mal, solo tienes que dar !a direc¬ 
cion del primer byte erroneo. A con¬ 


tinuation puedes ir introduciendo los 
bytes cor rectos. 

No obstante, si no hay mas que un 
error aislado* puedes corregirlo con 
un BREAK del programa monitor y 
un POKE con la correction en la di¬ 
rection adeeuada. No te olvides sin 
embargo de que el Spectrum requiere 
el POKE de un numero decimal. 


Cuando termines de introducir la 


correction* pulsa | ENTER | , y a conti¬ 
nuation examina nuevamente la me¬ 
moria para asegurarte de q ue q tied a 
hecha la correction. 


ARCHIVA TUS RUTINAS 


ma acostumbrada* aunque si tienes en 
memoria el programa monitor de co¬ 
digo maquina y se esta ejecutando, 
tienes primero que pulsar BREAK 
para salirte del programa. 

Acuerdate de repetir el comando 
CLEAR para proteger tu codigo ma¬ 
quina. si habias apagado el ordenador 
o habias modificado la position del 
RAMTOP por cualquier otra causa* 
desde que archivaste tu rutina en co¬ 
digo maquina. 

En el ZX81 puedes cargar tu pro¬ 
grama en codigo maquina con LOAD 
en la forma usual, junto con el moni¬ 
tor. 


Si quieres conservar este monitor de 
codigo maquina* tienes que archivarlo 
separadamente en la cinta, del modo 
acostumbrado. Con la opcion de 
«Guardar bytes en cinta» que te hr in- 
da el programa.solo se archivan las ru- 
tinas en codigo maquina que han sido 
introducidas con este programa. 

Sin embargo en el ZX8i tienes que 
archivar tus rutin as en codigo mfiqui- 
na junto con el monitor en la forma 
acostumbrada. 

En el Spectrum* si pulsas el 3, el 
programa te pedira una vez mas una 
direccion de comienzo. Esta debe ser 
la direction de comienzo de la rutina 
en codigo maquina que acabas dc in¬ 
troducir* aunque puedes archivar cual¬ 
quier parte de la memoria si utilizas 
diferentes direcciones de comienzo. 

A continuation con el Spectrum* se 
te pedira el numero de bytes que ocu- 
pa tu rutina en lenguaje maquina. 
Puedes evaluarlo contando los pares 
de digitos hexadecimales. Cada par es 
un byte. Seguidamente debes introdu¬ 
ce un nombre para la rutina a fin de 
que tu ordenador pueda identificarla 
cuando posteriormente quieras car- 
garla desde la cinta. 

Seguidamente la rutina se almacena 
pulsando las teclas de PLAY y RE¬ 
CORD de tu cassette en la forma 
usual. Cuando term in a este proceso 
aparece de nuevo el menu. 


CARGA DEL CODIGO MAQUINA 

En el Spectrum, la rutina en codigo 
maquina se carga facilmente en la for¬ 


MIRANDO HACIA ATRAS 


Las siguientes rutinas sirven para 
despiazar la pantalla hacia atras* es 
decir de arriba a abajo en vez de aba- 
jo hacia arriba. Teclea la rutina co- 
rrespondientc a tu maquina utilizando 
el monitor de codigo maquina. Acuer- 
date de no teclear espacios entre nu- 
meros. 


1 Teclea 

para Spectrum 

l 



21 

9F 

58 

11 

BF 

58 

06 

08 

25 

15 

E5 

D5 

C5 

01 

A0 

00 

ED 

B8 

06 

02 

C5 

D5 

11 

00 

F9 

19 

D1 

01 

20 

00 

ED 

B8 

E5 

21 

00 

F9 

19 

EB 

El 

01 

EO 

00 

ED 

B8 

Cl 

10 

E5 

Cl 

D1 

El 

10 

D4 

21 

00 

3 F 

06 

08 

C5 

24 

E5 

AF 

77 

54 

5D 

13 

01 

IF 

00 

ED 

B0 

El 

Cl 

10 

EF 

21 

9F 

5A 

11 

BF 

5A 

01 

A0 

02 

ED 

B8 

21 

00 

58 

11 

01 

58 

3A 

8D 

5C 

77 

01 

1 F 

00 

ED 

B0 

C9 

U 



[Tec 

:lea 1 

para 

2X81 





01 

18 

03 

2A 

OC 

40 

09 

54 

5D 

01 

F7 

02 

2A 

OC 

40 

09 

ED 

B8 

2A 

OC 

40 

23 

36 

00 

54 

5D 

13 

01 

IF 

00 

ED 

B0 


C9 


EJECUCION DE LOS PROGRAMAS 

Despues de teclear el programa en 
codigo maquina y comprobar que no 
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tiene errores tras examinarlo en me¬ 
mo ria, querras ejecutarlo. Pero te en- 
contraras que no responde al familiar 
comando RUN, que es una instruc¬ 
tion del BASIC y solo sirve para eje- 
cutar programas en BASIC. Para eje- 
cutar programas en lenguaje maquina. 
se requieren instrucciones especiales. 

Tanto el Spectrum como el ZX81 
utilizan la palabra clave USR, seguida 
de la direccidn de comienzo del pro- 
grama en codigo maquina. USR pre¬ 
sents el contenido del registro BC del 
microprocesador una vez que ha side 
completada la rutina en codigo maqui¬ 
na, Esto no resulta muy util en si mis- 
mo, pero significa que el programa en 
codigo maquina solo es active cuando 
se esta ejecutando, 

Desgraciadamente USR no es un 
comando sino una funcion. Y la es- 
tructura del BASIC de Sinclair exige 
que para que una lmea se ejecute, 
debe comenzar por un comando. Por 


ello USR ha de ir precedida por un co¬ 
mando. En el Spectrum puedes utili- 
zar: 

RANDOMIZE USR 32QD0 

y en el ZX81 
RAND USR 16514 

(observa que en el Spectrum la te- 
cla marcada con RAND hace que 
en la pantalla aparezea RANDOMI¬ 
ZE. En el ZX81, la tecla RAND 
hace que aparezea RAND en la pan¬ 
talla). Este comando no tiene signifi- 
cado en si mismo, pero sirve para que 
se pueda ejecutar la rutina en lengua¬ 
je maquina. 

De hecho se puede utilizar cual- 
quier comando del BASIC para pre- 
ceder a USR. PRINT USR 32000 val- 
dria, aunque realmente presentaria en 
pantalla el contenido de BC, 


Por ello se usa con mas frecuencia 
RANDOMIZE USR 32000 (o RAND 
USR 16514) ya que evita este tipo de 
efectos secundarios indeseados, Pero 
no puede utilizarse si tu programa em- 
plea por alguna parte numeros aleato- 
rios. Para estos casos, en el Spectrum 
usa: 

LET L=USR 32000 

y en el ZX81: 

LET L=16514 

Con esto se asigna a la variable L el 
contenido del registro BC cuando fi- 
naliza la ejecucion del programa en 
codigo maquina; aunque no es una 
gran cosa, los usuarios de Sinclair sa- 
ben muy bien que LET, L, = v USR 
estan todos en la misma tecla, lo que 
hace las cosas mas facilcs. 
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LOS OBJETOS 
DE LA AVENTURA 


DATA PARA LOS OBJETOS 
DESCRIPCIONES LARGAS Y CORTAS 
__ MAS VERBOS 

TOMANDO Y DEJANOO OBJETOS 
RUTINA DE INVENTORY 


Ha Uegado el moment© de llenar tu 
vacio mundo de aventura con objetos, 
Te ensenaremos como puedes incorpo- 
rar en el programs tu lista de objetos 
y la forma de manejarios, 

Al final del capitulo anterior tenia- 
mos un eonjunto complete de ambien- 
tes para la aventura v ya habiamos 
proporcionado al aventurero la capa- 
cidad de moverse por todo el mundo 
de ia aventura. Sin embargo en la fase 
actual las actividades del aventurero 
todavfa carecen de sentido, ya que aiin 
no sucede nada en ninguno de los lu- 
gares. Ha llegado el momento de voi- 
ver airas y ver !o que habtas planeado 
incluir en cada punto. 

A continuacidn veremos la forma 
de agregar las rutin as necesarias para 
llegar a I sitio adecuado y recoger o 
abandonar todos ios objetos que inter- 
vienen en la aventura. Tambien pre- 
sentaremos una rutina que hace un in- 
ventario de todos los objetos que el 
aventurero [leva consigo en un mo¬ 
mento dado, la cual puede restiltar util 
en los mementos mas crfticos de la ac- 
don. 

Carga e! programa que tienes des- 
de el capitulo anterior, dejandofo tis- 
to para recibir nuevas rutinas. 


OBJETOS 


La maquina necesita saber tres co- 
sas acerca de los objetos: el numero 
del lugar donde el objeto estaba ini- 
cialmente situado, un nombre para el 
objeto y una descripcion mas larga 
que induira algo acerca de la situation 
del objeto y sugiera de atguna forma 
su empleo. Estas tres cosas son indis- 
pensables para el ordenador, ya que 
en primer lugar tiene que saber si un 
objeto esta o no en un ambiente, ade- 
mas tiene que poder avisar al jugador 
de su presencia, con la description lar- 
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ga y, por ultimo, neeesita un nombre 
corto, para utiiizarlo en instrucciones 
e inventarios. 

Los numeros de los lugares se situa- 
ran en una matriz, el ti'tulo de los ob- 
jetos en otra y las descripciones de los 
objetos en una tercera. El programa 
procesara las tres matrices en parale- 
lo; cada elemento de la matriz sopor- 
ta una informacion equivalente acerca 
de los objetos, el primero es el nume- 
ro del lugar, el segundo es el nombre 
del objeto, etc. 

Aiiade a tu programa las siguientes 
Ii'neas; 


que tiene que ser descubierto durante 
la aventura), o un -1 si se trata de un 
objeto que el aventurero lleva eonsi- 
go. OB$ contendra las descripciones 
cortas y SIS las descripciones largas. 

La h'nea 190 Ilena las matrices con 


datos de las Hneas 200 a 260. Los da¬ 
ms se disponen en grupos de tres de 
la forma siguiente: numero de lugar. 
descripcion corta del objeto y descrip- 
cion larga del mismo. 

Cuando uses esta rutina para otras 


160 REM **PREP.MATRICES DE 
LOS OBJETOS** 

170 READ NB 
180 DIM B(NB):DIM B$ 

(NB,14) : DIM S$ 

(NB / 40) 

190 FOR 1-1 TO NB: READ 
BCI), B$CI),S$(I): 

NEXT I 

200 DATA 7,4/'B0LSA"/’HAY 
UNA B0LSA DE CANICAS" 

210 DATA 14/'LADRILL0","HAY 
UN LADRILL0 A TUS PIES" 
220 DATA 24/'CADENA"/’UNA 

CADENA CUELGA DEL TECB0" 
230 DATA 0,"PIST0LA'V'HAY 

UNA PIST0LA EN EL SUEL0" 
240 DATA O/'GLOBO OCULAR", 
"EN SUEL0 HAY UNA ALHAJA 
CON FORMA DE 0J0” 

250 DATA 22/ , LAMPARA"/ l VES 
UNA LAMPARA" 

260 DATA 0,"INSPECTOR FISCAL 1 
/'UN INSPECTOR FISCAL 
APARECE DE REPENTE" 


Cada lfnea desde la 200 a la 260 con¬ 
vene tres eiementos de los DATA re¬ 
fer idos al mismo objeto. La lfnea 200 
incluye un elemento suplementario: el 
numero 7 al principio de los datos in¬ 
forma a la maquina de cuantos con- 
juntos de datos hay. 

Una vez que se lee el numero 7 en 
la lfnea 170, se dimension an tres ma¬ 
trices con ese tamafio en la lfnea 180. 
OB contendra la situacion de cada ob¬ 
jeto, ya sea un numero de lugar, un 0 
si el objeto todavfa no existe (por 
ejemplo el famoso ojo de brillantes 
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aventuras, no tendras que hacer mu- 
chas modification's en su estructura, 
ya que a! ajustar el primer elemento 
de los DATA, automaticamente se di- 
mensionaran tan to el bucle FOR 
NEXT como las matrices. 


DISPOSITION DE LOS OBJETOS 


A continuation el programa contie- 
ne toda la information referente a la 
naturaleza y colocaeidn de los objetos. 
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La siguiente rutina presenta la des- 
cripcidn large del objeto en el lugar 
adecuado: 


360 REM **VISUALXZACIGN DE 
LOS OBJETOS EN EL LUGAR 
APROPIADO** 

370 FOR 1=1 TO NB-IF B(I)=L 
THEN PRINT SSCI) 

380 NEXT I 

En esta fase ticnes que hacer una 
pequefia modification en las lineas 330 
y 340: cambia el GOTO 400 por 
GOTO 370. Las lineas 370 y 380 exa- 
minan la matriz que contiene los Iuga¬ 
tes de los objetos. Si alguno de los nu- 
meros de los lugares coincide con el 
del lugar donde se eneuenlra el obje¬ 
to en ese memento —variable L— 
aparece la description corta del obje¬ 
to a continuation de la del lugar. Esta 
rutina se puedc usar sin modificacio¬ 
nes en otras aventuras* 


MAS VERBOS 


Ya denes en tu aventura unos cuan- 
tos objetos esparcidos por los diversos 
lugares, pero como la maquina toda- 
vfa no entiende mas palabras que 
NORTE, SUR, ESTE y OESTE, el 
pobre aventurero no puedc hacer 
nada con esos objetos. lmaginate la 
frustration de no poder coger esa ape- 
titosa bolsa de canicas o no poder de- 
fenderte contra cl inspector de hacien¬ 
da. Por eso tienes que darfe al orde- 
nador un vocabularto de palabras que 
pueda reconoccr, diciendole que debe 
hacer con los objetos. Mas adelante 
veremos que hacer si el jugador intro¬ 
duce una palabra que no este en el vo- 
cabulario suministrado a la maquina. 

Ya que el programa trata todas las 
paiabras de las direcciones como ver¬ 
bos, el mejor sitio para los verbos que 
indican lo que hacer con los objetos 
sera la matriz R$, y el mejor sitio para 
los correspondientes mimeros sera la 
variable R. 

En consecuencia tendras que hacer 
algunas modificaciones, empezando 
por la tinea 130. Tienes que cambiar 
los limites del bucle FOR ... NEXT. 
La nueva version de dicha linea es; 
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130 FOR K=1 TO 19:READ R$(K), 
R(K):NEXT K 

Seguidamente, ariade las lineas 140 
y 145: 

140 DATA "NAD0",5,"VACI0",6, 
"LUZ",7,"FIN",8,"LISTA", 
9,"FAT0",10,"DISPARQ' , ,10 
,"AYUD0",11 

145 DATA "COJO'V/'RECOJO'V 
,"LLEVO",.2,"PONGQ",3, 
"DEJ0",3,"ABAND0N0 M ,3 / 
"TIRO",4 

Cada verho tiene su corrcspondien- 
te tu'imero. Verbos con e! mismo nu- 
mero ticnen el mismo sigmficado, por 
lo que al ordenador se refiere. y rea- 
lizaran la misma operacion. Por ejem- 
plo, programando las cosas para que 
el ordenador acepte COGER, TO- 
MAR y LLEVAR, el aventurero se 
ahorrara mucho de gasto de tiempo in- 
necesario intentando descubrir cual de 
estas palabras tiene que usar. Puedes 
anadir con facilidad tus propias pala¬ 
bras en las lineas de DATA cambian- 
do el bucle FOR ... NEXT de la linea 
130 y poniendo los nuevos DATA al 
final de la tinea 145. Tienes que hacer 
mas modificaciones en otras partes del 
programs, pero ya te diremos mas 
adeiante lo que tienes que hacer. 


OTRAS RUTINAS 


Despues dc que has eompletado la 
lista de verbos con la ultima rutina, el 
ordenador necesita algunas rutinas 
que le permitan atender instrucciones 
tales como hacer que el aventurero lle- 
ve determinados objetos. 

La subrutin a que comienza en la li- 
nea 3010 define VS, NS e I, que es un 
numero extraido de ia inatriz R. Con 
esta corta rutina, la maquina podra 
comprender el significado de cada res- 
puesta del aventurero, segun el valor 
de 1. 

Ya tienes una matriz G que conve¬ 
ne los numeros de lineas de los distin- 
tos lugares. Puedes anadirle a esta ma¬ 
triz los numeros de lineas necesarios 
para las nuevas rutinas. 

Segun esto, la linea 30 aparecerd 
ahora asi: 


30 FOR N=1 TO 4:FOR M=1 TO 11 
: READ G(M,N);NEXT MrNEXT N 

La sentencia DATA asociada con la 
misma contiene todos los numeros de 
lineas que vas a necesitar: 

70 DATA 1010,1150,1240,1310, 
1410,1460,1500,1360,1080, 
1550,3110 

Ahadele ahora la rutina que sirve 
para elcgir la rutina adecuada, segun 
ei valor de I: 

500 REF **ENCUENTRA 0PCI0N** 
510 IF 1=0 THEN GO TO 520 
520 PRINT'"NO CON0ZC0 ”;V$: 

GO TO 370 

Si la subrutina de «control de ins- 
trucciones», que empieza en la linea 
3010 no encuentra ninguna correspon- 
dencia para V$ en R$. se pone I a cero 
y la linea 510 envia el mensaje NO SE 
COMO HACER... ; para cualquier 
otro valor de I, la linea 515 busca en 
la matriz G el valor de linea correcto 
y ejecuta un GOTO. 


LA TOMA DE OBJETOS 


Ya tienes la rutina para el I = 1, co- 
rrespondiente al caso en que el aven¬ 
turero introduce una palabra de di- 
rerccidn; dicha rutina se encuentra en 
las lineas 1010 a 1060. 

Cuando I = 2, significa que ei aven¬ 
turero ha tecleado una palabra de «co- 
ger», como COGER, TOMAR o 
LLEVAR. La siguiente rutina permi- 
tira al aventurero llevarse consigo 
cualquier objeto que haya en el lugar 
en que se encuentra. Seria algo asi: 

1140 REM **RUTINA "C0J0"** 
1150 FOR G=1 TO NB 
1160 IF N$=B$<G,T0 LEN N$) 
THEN GO TO 1190 
1170 NEXT G 

1180 PRINT "NO C0MPREND0 
N$:G0 TO 330 

1190 IF BCG)--1 THEN PRINT 

"YA L0 TIENES":GO TO 330 
1200 IF BCG)<>l THEN PRINT 

"NO ESTA AQUI 1 ':GO TO 330 


1210 PRINT M 0K":LET E(6)=-1 
1220 GO TO 330 

En las lineas 1150 a 1170 se busca 
la matriz B$ que contiene ias descrip- 
ciones cortas de objetos, para saber 
que objeto es el designado por el 
aventurero. Si se encuentra el nombre 
del objeto, el programa salta a la li¬ 
nea 1190. Si el objeto no figura por 
ninguna parte de la aventura, la linea 
1180 presenta el mensaje NO EN- 
TIENDO, seguido del nombre de ob¬ 
jeto tecleado por el aventurero. 

Suponiendo que el objeto designa¬ 
do haya sido encontrado, hay que 
comprobar dos cosas. La linea 1190 
examina el elemento de la matriz B 
correspondiente a dicho objeto, para 
ver si ya esta en poder del jugador. Si 
el jugador ya lo tiene (el correspon¬ 
diente valor de la matriz es -1) se pre- 
sentara el mensaje YA LO HAS CO- 
GIDO. 

En la linea 1200 se comprueba si el 
objeto esta presente, examinando 
nuevamente la matriz de lugares. Si no 
esta presente, el programa dice: NO 
ESTA AQUI. Naturalmente, puedes 
cambiar estos mensajes por otros, si 
no se adaptan bien a tu aventura. 

Si el objeto esta en el mismo lugar 
que el aventurero y no ha sido cogido 
por este, la linea 1210 dice OK y en el 
correspondiente elemento de ia matriz 
de lugares se pone el valor —1. 


ABANDONO DE OBJETOS 


La rutina de «abandono» hace exac- 
tamente lo contrario que la anterior. 
Permite al aventurero dejar los obje¬ 
tos que no quiere llevar con el. 

1230 REM **RUTINA "DEJA"** 
1240 FOR G=1 TO NB 
1250 IF N$=B$(G,TQ LEN N$) 
THEN GO TO 1270 
1260 NEXT G:PRINT "NO 

C0MPREND0 ";N$:G0 TO 330 
1270 IF BCG)0-1 THEN PRINT 
"NO L0 TIENES":G0 TO 330 
1280 PRINT "OK":LET B(G)=L 
1290 GO TO 330 

Esta rutina funciona de una forma 
muy parecida a la de «toma». Nueva- 
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iSe puede utilizar un sintetlza- 
dor de voz con una aventura? 

Tu aventura podna resultar 
mas interesante programando la 
maquina de modo que anuncie 
aciisticamente los mensajes, di- 
recciones y descripciones de ob- 
jetos, en lugarde representarlos 
en la pantalla. 

Consulta el manual de tu sin- 
tetizador para ver cdmo se pue¬ 
de hacer que la maquina hable 
y sustituya a las instrueciones 
que contienen ias sentencias 
PRINT. 
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mente se examina la matriz de descrip- 
cioncs cartas, esta vez se hace en las 
Imeas 1240 a 1260, Si el objeto desig- 
nado por el aventurero fjgura en la 
matriz, la Ifnea 270 comprueba si el 
aventurero lo lleva o no. Si no lo lle¬ 
va, se presenta el mensaje NO LO 
LLEVAS. 

Si el aventurero lieva el objeto, la li- 
nea 1280 envfa el mensaje OK y se 
ajusta el correspondiente elemento en 
la matriz de situacion de objetos OB. 
Ahora tiene el mismo valor que el lu- 
gar actual, es decir L, en vez de -1 
que significaba que si lo llevaba. 


INVENTARIO DEL BOTIN 


Los avetitureros desmemoriados es- 
taran muy contentos de poder contar 
con una list a de todos los objetos que 
llcvan. Aquf tiencs ima rutina que 
hara exacfamente esc: 

1070 REM **LISTA** 

1080 PRINT "TIENES: :LET 

IN=Q 

1090 FOR G=1 TO NB 

1100 IF B(G)=-1 THEN PRINT 

TAB 10;B$(G):LET IN=IN+1 
1110 NEXT G 

1120 IF IN=0 THEN PRINT 
"NADA 1 ' 

1130 60 TO 330 

La line a 1080 envfa el mensaje 
LLEVAS, seguido de la lista de obje¬ 
tos. El bucle FOR...NEXT comprue¬ 
ba todos los elementos de la matriz de 
situacion de objetos. Esta vez los ele- 
mentos importantes son los que tienen 
el valor -1, signifieando que el corres¬ 
pondiente objeto es uno de los que lle¬ 
va el aventurero. Si e) valor de un ele¬ 
mento es —1, se presenta la descrip- 
cion eorta del objeto en cuestion, to- 
mandola de la matriz. El contador de 
inventario IN se incrementa en 1. 

Si el aventurero no lleva ningun oh- 
jeto, IN se queda a cero y la Ifnea 1120 
en vez de la lista de objetos presenta 
el mensaje NADA, 

Las rutinas de «toma», «abandono» 
e «inventario» pueden utilizarse tal 
como estan , ya que NB ha sido defi- 
nido en una rutina anterior, 

Almacena ahora el programa 


(SAVE), dejandolo dispuesto para re- 
cibir las rutinas finales que veremos la 
proxima vez. Se trata de las rutinas co- 
rrespondientes al inspector de hacien¬ 
da, el ladrillo, la lampara, el encuen- 
tro de la joya, el final de la aventura 
y, finalmente, la instruction que des¬ 
cribe el objeto de la busqueda. 

Si ejecutas ei programa ahora, ve- 
ras que hay partes del mismo que fun- 
cion an mientras que en otras partes 
ocurren cosas extrahas. I ,a razdn es 
que todavia hacen falta unas cuantas 
rutinas y el programa salta a Imeas que 
aun no existen. 


ELIMINANDO FALLOS 


- Asegurate de que los tres grupos 
DATA que contienen datos relaciona- 


dos con los objetos se leen la matriz 
adecuada. Si intentas meter datos de 
cadenas de caracteres en una matriz 
numerica, recibiras un mensaje de 
error, o puede que te encuentres con 
una descripcibn corta cuando espera- 
bas una larga. 

- Ten irmcho cuidado en respetar el 
orden de los DATA en correspondent 
cia con el orden de lectura de las ma¬ 
trices, El orden correcto es: lugar, 
nombre o descripcion corta, descrip- 
cion larga. 

- Despues de introducir los objetos 
haz una pasada de prueba del progra¬ 
ma, para asegurarte de que los obje¬ 
tos aparecen en el sitio correcto. 

- Al coni probar los objetos, hazlo 
sobre la reticula, para asegurarte de 
que no se te ha olvidado nada, 
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COMPLETANDO 
LA AVENTURA 


UNA RUTIN A DE AYUDA 
EL INSPECTOR DE HACIENDA 
FROBLEMAS CON EL LADRILLO 
ENCENDIENDQ LA LAMPARA 

_ INSTRUCCIONES 


La aventura de INPUT esta ya casi 
complete. Solo quedan las rutinas que 
la convierten en una aventura unica, 
las rutinas especiaies que confieren a 
este juego su caracfen 

Ya has completado casi todos los 
elementos que integran tu juego; es el 
memento de incorporar los ultimos 
detalles del programa* Tienes que 
anadir aun algunas cosas, como los pe- 
ligros, las advertencias, y tienes que 



prever un camino de salida para el 
ease de que la aventura se complete 
con exito* For ultimo, tienes que po- 
ner las instruceiones para jugar. 

Dado que muchas de estas rutinas 
estan escritas de forma que contienen 
detalles especificos de una aventura 
particular, en los programas que si- 
guen completeremos el juego y le 
mostraremos en terminos generales 
todo lo que se relaciona con esta fase 
del programs. En otras aventuras no 
podras utilizar estas rutinas sin modi- 
ficarias. En el proximo capitulo vere- 
mos la forma en que puedes adapter 
estos printipios para aplicarlos a tus 
ideas originates. 


NECESITAS AYUDA 


Si el juego de aventuras que has es- 
crito es bueno, lo mas probable es que 
el aventurero necesite alguna ayuda* 
Deberas pues prever unas cuantas su- 
gerencias utiles, 

Estas sugerencias tendran la forma 
de mensajes que el ordenador enviara 
mediante sentencias PRINT en res- 
puesta a las solicitudes de AYUDA 
hechas por el jugador. Lo que digan 
los mensajes y los puntos en que pue- 
dan estar disponibles, queda a tu en- 
tera discretion, ya que tu eres quien 
programa la aventura. Si quieres, pue¬ 
des hacer que no haya un solo mensa¬ 
je, o hacer que scan deliberadamente 
engahosos, o bien proportional ayuda 
unicamente en unas cuantas situacio- 
nes aisladas, El primer paso para de- 
cidir lo que inefuir es volver a const- 
derar tu plan original sobre las lineas 
maestras de la aventura, 

En la aventura hay varios puntos en 
los que convendrta enviar al jugador 
un eorto mensaje. Por ejemplo, po- 
drias advertirle acerca de la habitation 
oscura, de forma que cuando este en 
un lugar contiguo a dicha habitation. 


la respuesta ante su posible solicitud 
de ayuda podria ser un mensaje como: 
MIRA ANTES DE DAR EL SAL¬ 
TO, o incluso algo que pudiera resul- 
tar mucho mas criptico. 

Otro sitio donde se podria inclutr un 
mensaje de aviso es la orilla de! rfo, 
donde, en el caso de que se decida a 
nadar el aventurero corre el riesgo de 
ahogarse dependiendo dc que lleve o 
no el ladrillo. 

Natural me rite, puedes repasar una 
a una todas las situaciones en las que 
podria ser conveniente un poco de 
ayuda, pero supongamos que decides 
no dar demasiadas facilidades y enviar 
un mensaje en un solo panto, ei rfo. 
Tienes que hacer referencia a este mi¬ 
me ro de lugar, d numero 7, y a la va¬ 
riable que registra la prcsencia del ia- 
drillo, B(2): 

3100 REM **RUT1NA "AYUDA"** 
3110 IF L<>7 OR BC2JO-1 

THEN PRINT "LO SIENTQ, 
NO TE PUED0C5*ESPACI0] 
AYUDAR AQUI! 
rt : GO TO 330 

3120 PRINT "LOS LADRILL0S 
PE SAN MUCHO YC5* 

espacioohacen QUE 

TE DUELA EL BRAZ0 ,f :G0 
TO 330 

Si el aventurero no esta en la orilla 
(L<>7), o no Neva consigo el ladrillo 
(B(2)< > — 1), la linea 3110 presen- 
tara el mensaje LO SIENTQ, NO TE 
PUEDO AYUDAR AQUI. Si af He- 
gar a la orilla del rfo, el aventurero (le¬ 
va el ladrillo y pide ayuda, la linea 
3120 imprimira el siguiente mensaje 
de advertencia: LOS LADRILLOS 
PESAN MUCHO Y HAGEN QUE 
TE DUELA EL BRAZO. 

Caso de que quieras hacerlo, no hay 
nada que te impida incluir una lista 
complete de condiciones eon sus co- 
rrespondientes mensajes de aviso, 
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EL INSPECTOR DE HACIENDA 


En la aventura interviene un sujeto 
que etia por ahf merodeando, que es 
un inspector de hacienda el cual inten- 
ta recuperar parte de I os impuestos 
impagados por el aventurero, confis- 
candole uno de los objetos que Neva. 
No se preocupa mucho de cuales son 
esos objetos, por lo que en algunos ca- 
sos incluso podrfa aceptar como pago 
un ladrillo. 

Si el aventurero no tiene la suerte 
de llevar nada consigo en el momento 
en que se encuentra con el inspector 
de hacienda, sera encerrado en una 
mazmorra en la que se pudrira para 
siempre. Y aquf termina el juego. 

El papel del inspector de hacienda 
es proporcionar al juego un elemento 
probabih'stico. que resulte impredeci- 
bie independientcmente de como se 
encuentren las demas condiciones. 
Como en otros ejemplos de introduc- 
cidn de probabilidades en la progra- 
macion, puedes hacerlo recurriendo a 
la funcion RND. Por lo demas, pue¬ 
des tratarlo como otro objeto cual- 
quiera; la unica diferencia es que su si¬ 
tuacion no es fija, sino que se estable- 
ce de forma aleatoria. 

Aquf tienes las lfneas supiementa- 
rias que debes ahadir para que aparez- 
ca ei inspector fiscal: 

320 IF RNDCC1/15) AND TA=G 
THEN LET B(7)=L:LET 
TA=1 

480 IF B(7)=L AND IO10 THEN 
GO TO 1590 

Inicialmente estas variables han 
sido puestas a cero. 

La lfnea 320 hace que el aventurero 
tenga una probabilidad sobre 15 de 
encontrarse con el inspector. Solo se 
le permite aparecer una vez durante el 
juego, por lo que necesitas una varia¬ 
ble, TA, para indicar si ha aparecido 
o no. 

Si el mimero aleatorio es 1 o menor 
que 1/15, y el inspector todavfa no ha 
aparecido, la lfnea 320 ajusta e! valor 
que corresponde al inspector de ha¬ 


cienda en la matriz de situacion de ob¬ 
jetos. La presentation del mensaje del 
inspector se hace igual que si se trata- 
se de un objeto, almaccnandose en Ja 
description larga de la matriz. 

La lfnea 480 tiene que ver con la su- 
presidn del inspector. Se limita a com- 
probar si has intentado matarle. Si no 
lo has intentado. el programa salta a 
la lfnea 1590. 


LA RESPUESTA ANTE EL 
IMPUESTO 


Cuando el inspector vuelve su fea 
cabeza, solo hay una solution posible. 
El aventurero debe disparar contra el 
utilizando la pistola que se encontro 
en el rfo: 

1540 REM **RUTINA 
"DISPARA"** 

1550 IF B(4)0-1 THEN PRINT 
"CON QUE?":GO TO 320 
1560 IF BC7)<>L THEN PRINT 
V$; " A QUIEN?":GO TO 
320 

1570 PRINT " MATASTE AL ";B$ 
C7):LET B(7)=0: GO TO 
330 

Esta rutina se utiliza cuando el 
aventurero escribe las palabras MA- 
TAR o DISPARAR. Si no lleva la pis¬ 
tola (B(4) <> -1), la lfnea 1550 pre- 
sentara el mensaje CON QUE? Ana- 
logamente si el inspector de hacienda 
no esta presente y el jugador intenta 
matarle, la lfnea 1560 le pregunta A 
QUIEN? 

La lfnea 1570 le dice al aventurero 
HAS MATADO AL INSPECTOR 
DE IMPUESTOS, y ajusta la matriz 
de situaciones de los objetos de forma 
que dicho inspector ya no existe. 


LA VENGANZA DEL INSPECTOR 


El aventurero se encuentra con lo 
siguiente: 

1580 REM **INSPECT0R 
FISCAL** 

1590 LET IN=0:LET B(7)=0 
1600 FOR K=1 TO NB 


1610 IF B(K)=-1 THEN LET IN= 
IN+1 

1620 NEXT K 

1630 IF IN=0 THEN PRINT 

"COMO NO LLEVAS NADA TE 
ENCIERRA EN UNA FRIA 
MAZMORRA":GO TO 1360 
1640 LET K=INT (RND*NB)+1:IF 
BOO 0—1 THEN GO TO 
1640 

1650 PRINT "EL SE LLEVA EL 

BSOO/'LEJOS DE TI":LET 
BOO=0:GO TO 400 

Al inspector solo se le permite apa¬ 
recer una vez durante toda la aventu¬ 
ra, por lo que la lfnea 1590 ajusta la 
matriz de situacion de objetos en lo 
que afecta al programa. Esto no tiene 
efecto alguno en esta rutina, pero le 
ahorra aparecer tambien en el siguien¬ 
te lugar. IN es un contador utilizado 
para comprobar si se llevan objetos. 

En las lmeas 1600 a 1620 se recorre 
toda la matriz de situaciones de obje¬ 
tos. para comprobar si cada uno de los 
objetos se lleva o no. Por cada objeto 
que se porte, se incrementa IN en 
uno. 

Si el aventurero no lleva objeto al¬ 
guno, el valor de IN permanece a cero 
y se presents el siguiente mensaje: 
COMO NO LLEVAS NADA, TE 
ENCIERRA EN UNA FRIA MAZ¬ 
MORRA. El juego termina aquf, y se 
pregunta de nuevo al aventurero si 
quiere jugar otra vez, saltando a la lf¬ 
nea 1360. 

Si por el contrario el aventurero lle¬ 
va objetos consigo, en la lfnea 1640 se 
elige uno al azar. Si el numero elegi- 
do corresponde a uno de los objetos 
transportados por ei aventurero, dicho 
objeto es confiscado; si por el contra¬ 
rio dicho objeto no ha sido cogido, se 
selecciona otro numero al azar, si- 
guiendo asf hasta que el numero ele- 
gido corresponda a uno de los objetos 
transportados. 

Despues de que ha sido selecciona- 
do un objeto, la lfnea 1650 informa al 
aventurero de que dicho objeto ha 
sido confiscado por el inspector. La 
matriz de situaci6n de objetos queda 
modificada de forma que dicho obje¬ 
to ya no existe. 
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SIMULACION: ALIMENTO 
PARA LA MENTE 


■ 

SIMULACION DEL CLIMA 

■ 

VARIABLES NORMALMENTE 

DJSTRIBUIDAS 

■ 

CONDICIONES COMERCIALES 

■ 

TENEDURIA DE LIBROS 


Animate a escribir prograrnas utilL 
zando un metodo de creacidn de mode¬ 
less eficaz, comprobando como pueden 
aplicarse proveehosamente los princi- 
pios del mundo de los negocios a la ges- 
tidn de un puesto callejero de comidas. 

La creadon de modeless es un aspec- 
to de gran importance de la ciencia 
matemaSca, sabre el que se ban ver- 
tido rios de tinta. Aun hoy en dfa. las 
teorias matematicas no suelen alcan- 
zar el favor del publico, especialmen- 
te si no pasan del terrene de las hipo- 
tesis y no se traducen en algo de apli- 
cacion practica, Pero tambien en este 
campo, el advenimiento de los mi- 
eroordenadores ha modificado la tra- 
dicional actitud pasiva frerne a los pro- 
blemas matematicos. De hecho, la po- 
tencia de calculo, presente incluso en 
el mas modesto de ios microordena- 
do res, ha eliminado uno de los princi- 
pales obstaculos psieologicos en la 
aplicacidn de las leyes y teoremas ma¬ 
tematicos: lo tedioso de unos calculos 
manuales, repetitivos, laboriosos y fa- 
cilmente sujetos a errores. En cambio, 
pensemos en lo faeil que results apli- 
car con un ordenador, por ejemplo, 
algunas leyes fisicas, El movimiento 
de un pendulo o la caida de un objelo 
bajo ia atraccion gravitatoria son ex- 
perimentos elasicos, pero que impli- 
ean el use de elementos e intrumentos 
de medida no siempre disponibles* 

Si disponemos de un ordenador con 
capacidades graficas, es muy sencilio 
verificar dichas leyes: basta con expre- 
sar correctamente las formulas y utili- 
zar una visuaiizacion grafica lo mas 
parecida posible al caso real. Obser- 
var como se comporta el modelo crea- 
do en el ordenador, al variara las con- 
diciones que influyen sobre el, es casi 
un juego (como inciso, muchos de los 
recientes juegos de ordenador estan 
basados en conceptos similares, esc si, 
debidamente camuflados). 


La posibilidad de reproducir en el 
ordenador experimentos que de otro 
modo resultanan imposibles o peligro- 
sos, dene como efecto secundario, un 


desarrollo de la capacidad de sintesis 
mental. Poder dedicarse totalmente al 
examen del fenomeno, sin perderse en 
complejos calculos, haee mas facil 




































Aplieaeiones 


captar la esencia del experimento y, a 
largo plazo. habitua la mente a distin- 
guir los factores irrelcvantes de aque- 
llos que rcalmente influyen cn un 
evento determinado. 

Ademas, la introduecidn de ele- 
mentos aleatorios en un modelo de or- 
dcnador, resulta sumamente facil. 
Solo habra que tener en cuenta la for¬ 
ma de generar difcrentes tipos de va¬ 
riables aleatorias que se adapten a los 
distintos sucesos. 

£1 programa cuyo listado presenta- 
mos a continuation, utiliza un mctodo 
eficiente para generar variables con 
distribucion normal. Te ayudara a 
crear modelos para un pequeno nego- 
cio. 

Puedes considerar este programa 
eomo un juego (bastante interesante, 
por cierto), pero no pierdas de vista 
que, en realidad, se trata de un mo¬ 
delo para una situacion real. 


1 POKE 23658,8: POKE 23609 

,12 

20 PAPER 0: BORDER 0: INK 7 
: CLS 

30 PRINT AT 0,8; INVERSE 1; 

'■ CHIRINGUIT0 " 

40 DIM A$(4,16): DIM L(2): 
DIM D<10): DIM W(2): DIM 
0(2): DIM P<2) 

50 LET A$(1)="CALID0 Y SECO" 
: LET DC3)=150: LET D(4) 
=300 

60 LET A$(2)="CALID0 Y 
HUMED0": LET D<5)=100: 

LET D(6)=200 

70 LET A$(3)="FRI0 Y SECO": 
LET D(7)=250: LET D(8) = 
160 

80 LET A$(4)="FRI0 Y HUMED0" 
; LET D<9)=200: LET DC10) 
=100 

90 PRINT 1 ’ 

580 DIM C<4,2): LET C(1,1)= 
10: LET C(1,2)=20 
590 LET C(2,1>=50: LET 0(2, 
2) =25 

600 LET 0(3,1)=1: LET 0(3,2) 
=12 

610 LET C(4,1)=10: LET C(4, 
2)=10 

620 INPUT "CUANT0S JUGADORES 
(1-6)? ":N 





w< M 

mPf 


A 



\ f? .! 




625 IF N<1 OR N>6 THEN GO TC 
620 

627 DIM K(N): DIM T(2,N): 

DIM 0(2,N) 

630 FOR 1=1 TO 2: FOR J=1 
TO N 

640 LET T (I,J)=0 
650 NEXT J: NEXT I 
700 FOR K=1 TO 10 
710 LET Pl=INT (10*(,3+(RND* 
1 / 2)))/10 

720 LET P2=INT (10*(.2+CRND* 

1/2)))/1Q 

730 PRINT INK 4; BRIGHT 1;"- 


- DiA:INK 7;K 

; INK 4; 1 "- 


740 PRINT "Prob. de dia 

calido y seco ";100*p1; 

m/ It 


750 

PRINT " 

Prob. de di 

a 



seco 

100*p2; 



760 

GO 

SUB 

1400 



770 

LET 

Ul = 

RND*1: LET 

U2 

= RND 


*1 





780 

LET 

VI = 

SQR (2*(LN 

(1 

/U1 


))) 





790 

LET 

V2= 

COS (2*PI*U2) 

■ 

* 


LET 

V3= 

SIN (2*PI*U2) 


Q 

O 

oo 

LET 

Z1 = 

INT (VI*V2) 

* 

* 

LET 


Z2= 

INT 

(V1*V3) 



810 

LET 

Al = 

Pl*P2: LET 

A2 

=P1 

820 

LET 

A3= 

P1+P2-A1: LET 

A4= 


1: 

LET 

F=RND*1 



821 

PRINT : 

IF F<Al THEN 

LET 


R=1 





822 

IF 

F>A1 

AND F<=A2 

THEN 


LET 

R=2 




823 

IF 

F>A2 

AND F<=A3 

THEN 


LET 

R=3 




824 

IF 

F>A3 

AND F<=A4 

THEN 
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LET R=4 

830 CLS : PRINT "EL TIEMPO 
ES A$(R) 

840 LET D(1)=INT (D<1+R*2)+ 
21*25): LET D(Z)=INT (D 
(2+R*2)+Z2*40) 

850 PRINT "La demanda de 

patatas asadas es=";D(1) 
860 PRINT "La demanda de 
botes de cola=";D(2) 

1000 PRINT INK 5; INVERSE 1; 
"JUGAD. VENTA COSTE 
GANANCIA" 

1010 GO SUB 1600 
1020 NEXT K 
1030 PAUSE 200 
1090 CLS 

1100 PRINT "RESULTADOS 

FINALES DESPUES DE 10 
DIAS’" ' 

1110 PRINT "JUG AD OR "/'TOTAL 


GANANCIAS" 

1120 FOR J=1 TO N 
1130 PRINT NEXT J 

1140 PRINT ' 1 : PRINT "FIN 
DEL JUEGO" 

1150 STOP 

1400 PRINT "ORDENES, POR 
FAVOR": PRINT 
1410 FOR J=1 TO N 
1420 PRINT "JUGADOR";J: 

PRINT 

1430 INPUT "NUMERO REQUERIDO 
DE PATATASC5*ESPACIOO 
CALIENTES 

1440 INPUT "HUHERO DE BOTES 
DE COLA ";0(2,J) 

1450 NEXT J 
1460 RETURN 
1600 FOR J-1 TO N 
1610 FOR 1=1 TO 2 
1620 LET L=Q(I,J> 

1630 IF 0(IXL THEN LET L= 

DC I) 

1650 LET W<I)=CC2,1)*L 
1670 LET Q(I)=CC1 / I)*0(I / J) 
1680 IF DCI)>L(I) THEN GO TO 
1700 

1690 LET QCI)=Q(I)-C(3 / 1)*(0 
(I,J)-D(D) 

1700 LET P(I)=W(1)-Q(I) 

1710 LET T(I,J)=TCI,J)+P(I) 
1720 NEXT I 

1730 LET K(J)=T(1,J)+T(2,J>- 

2000 

1740 LET E=W(1)+W(2) 

1750 LET C=QC1)+Q(2)+200 
1760 LET P=P(1)+p(2)-200 
1770 PRINT INK 6;TAB 2;J; 

TAB 7;E;TAB 13;C;TAB 20 

• pill 

1780 NEXT J 
1790 RETURN 


El programs se concent ra en el as- 
pecto de «nadar o hundirse» propio de 
un negocio: la perdida o la gananda. 
A1 teciear RUN para ejecutarlo, 
puedes elegir entre ser el unico parti’ 
cipante o actuar junto a otros empre- 
sarios, hasta un maximo de cinco. 
Tam bien puedes elegir el jugar la par¬ 
te de dos o incluso tres de los cmpre- 
sarios, tomando decisiones distintas 
en cada uno de los tres papeles* Pue¬ 
des aprovechar la oportunidad para 


comparer los resultados de, por ejcm- 
plo, Ilevar los negocios eon cautela en 
uno de los cases, y actuar con ca rac¬ 
ier mas emprendedor y asumiendo 
riesgos en el otro. Sea la que fuere tu 
eleccion, al empezar la ejecucion del 
programa debes introducir el numero 
de jugadores. 

Cada jugador regenta un puesto 
que vende patatas eocidas y refrescos 
de cola. La demanda depende del 
tiempo que haga. Cuando hace frio, 
las patatas se venden bien. Cuando 
luce el soL se venden muy bien las be- 
bidas refrescantes, Por desgracia el 
empresario tiene que comprar un 
stock la vispera de cada dfa que abre 
su quiosco, y no conoce el tiempo que 
va a hacer. Afortunadamente dispone 
del pronostico del hombre del tiempo, 
que suele ser correcto el 70 por ciento 
de los dias. El ganador del juego es el 
jugador que despues dc 10 dias de 
comprar y vender haya hecho las ma¬ 
yo res ganancias* 

La prim era parte del programa 
(hasta la Ifnea 650) establccc las varia¬ 
bles para la rcpresentacidn en panta- 
lla y las condiciones del negocio* Pue¬ 
des pagar una renta de 200 pesetas por 
dfa* Las patatas las compras a 10 pe¬ 
setas cada una y las vendes a 50 pese¬ 
tas* La Coca-Cola te cuesta 20 pese¬ 
tas y la vendes a 25. Cada dfa de ne¬ 
gocio te deshaces de la mercanefa que 
te sobra a un precio de desecho: I pe¬ 
seta para las patatas y 12 pesetas para 
la Coca-Cola* Cada juego dura diez 
dfas. 

El indicador de demanda del gene- 
ro es el mostrado en la tabla ad junta, 
y aqui es donde se introduce un im- 
portante elemento cn el modclo. 
Como es natural, los mejores dias 
para las patatas calientes son dc los 
peores para las bebidas Was; sin em¬ 
bargo la demanda esta io suficiente- 
mente repartida entre los dos artfeu- 
los como para que los empresarios ha- 
gan un razonable negocio, haga el 
tiempo que haga. No obstante, todo 
depende en aSguna medida del pronos¬ 
tico del tiempo, no perdiendo de vista 
en ningun momento que no es total- 
mente fiable, Las probabilidades de 
que haga un dfa eahiroso y seco estan 
determinadas por las Ifneas 710 v 720; 
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posteriormente se utilizan (Imeas 810 
a 824) para simalar el tiempo. 

Las Imeas 770 a 800 utilizan un me- 
todo sofisticado para generar variables 
aleatorias con distribution normal. 
Despues se usan dichas variables para 
simular la demands en la Ifnea 840, La 
Ifnea 770 genera dos variables aieato- 
rias (U1 y U2), pero recuerda que no 
son verdaderamente aleatorias. Por 
ello se procesan en tres formulas ma- 
tematicas. En la Ifnea 780, se haila el 
inverso de U1 y se eleva al cuadrado, 
obteniendo despues su logaritmo na¬ 
tural. Finalmente se asigna la rafz cua- 
drada del resultado como valor de la 
variable VL La linea 790 asigna a V2 
el eoseno de una drcunferencia dc ra¬ 
dio U2, y a V3 el seno del mismo arco. 
Las variables VI, V2 y V3 sufren una 
nueva manipulacidn (linea 800) para 
dar finalmente las variables normal- 
mente distribuidas Z1 y Z2, 

El resto del programa, desde la If¬ 
nea 1600 hasta el final, se dedica a la 
organization de la entrada de datos y 
la presentation de resultados, 

Cuando juegues este juego tienes 
que tener en cuenta hasta la ultima pe¬ 
seta, Los resultados pueden ser atroz- 
mente parecidos, incluso transcurridos 
diez dtas de rtegocio. 
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SENCILLO ASEQUIBLE PROFESIONAL 



Para los que deseamos iener perfec la¬ 
ment® ordenada nuestra agenda de tra- 
bajo, presupuestos. fichas de productos. 
nuestra correspondence. estadisticas de 
venta. archive QL viene dot ado de cuatro 
microdrives totalmente interactsvados enire 
si QL QUILL de Tralaimenito de Textos, 
QL ARCHIVE Base de Datos QL ABACUS 

LJa '' nirt C4 Uj|q y g] 

>do Jipo de gra- 


Para los profesaonates que necesitamos un 
teclado en nuestro idioma. QL nos ofrece 
en castellano. su QWERTY standar de 65 
teclas moviles 

Para los que deseamos comumcarnos a 
gran velocsdad y capacidad con nuestro 
ordenador. QL nos presents so lenguaje 
SUPER BASIC 


Para los que necesitamos gran margen 
operative, ahora dssponemos de un orde¬ 
nador con memorta ROM de 32K que con¬ 
vene el sistema operative QDOS un sis- 
tema mono-usuano, multi-tarea y con 
parttcidn de tiernpo 



ALGUWAS DE LAS CGNFIGURACIONES MAS USUALES: 


OL 

QL 

MONITOR MONOCROMO 

QL 

MONITOR MONOCROMO 
IMPRESORA 

QL 

MONITOR COLOR 

QL 

MONITOR COLOR 
IMPRESORA 

PVR85S7SPTS 

PVR 107225 PTS 

PVR 161J000 PTS 

PVR I71.SOO PTS 

PVR225250 PTS 



Camp. SO. Test (33) l\ \ 26 5&-3-L E 2? M OBOES Barcelona 

























progro m ^!I 


FORMAS 

DE LA NATURALEZA 


■ 

MODELOS DE SIMETRIA 

■ 

PROGRAMA DE C0P0S 

DE NIEVE 

■ 

LA MONTANA COMPUTERIZADA 

■ 

GENERACION DE FORMAS 


Desde las formas idealizadas de las 
fractales generadas matematicamente 
a formas capaces de modeiar el mun- 
do natural con verdadero realismo. 

En el primer artfculo sobre fracta- 
tes, vimos como se pueden usar unos 
cuantos sencillos programas recursivos 
para generar formas fascinantes, me- 
diante la aplicacion repetida de una 
sencilla operacion, Estas formas gene¬ 
radas matematicamente presentan una 
imagen de simetrfa y orden, pero aun- 
que tienen muchos puntos en corcuin 
con las formas irregulares que se en- 
cuentran en la Naturaleza parecen 
poco mas que unas interesantes curio- 
sidades. 

Aunque ese tipo de fractales se 
acerca at modelado del mundo natural 
mucho mas de lo que es posibie usan- 
do las formas perfectas de la ciencia 
traditional, siguen estando aun bas- 
tante alejadas del realismo. En este 
artfculo veremos la manera en que las 
fractales pueden modeiar las formas 
que se encuentran en la Naturaleza. 

El primer programa presenta una 
de las formas mas simetricas de la Na¬ 
turaleza, el hexagonal copo de nieve. 

10 BORDER 0:PAPER 0:INK 5: 
BRIGHT 1:CLS 

20 LET AN=2*ATN(1 >/3:LET S2= 
2/SQRC3) 

30 LET XC=127;LET YC=90:LET 
S=120:LET C=2 
50 G0SUB 1000 
60 STOP 

1000 LET S=S/3:IF S<1 THEN 
LET S=S*3:RETURN 
1020 PLOT INVERSE 1;0VER 1; 
INT(XC+S2*S*SIN(-AN>), 

(YC-S2*$*C0S(-AN)):FOR 
K=0 TO 8*ATN(1)-AN STEP 
2*AN 

1030 DRAW XC+2*S*SIN(K)-PEEK 
23677,YC-2*S*C0S(K)- 


PEEK 23678 

1040 DRAW XC+S2*S*SIN(K+AN)- 
PEEK 23677,YC*S2*S*COS 
(K+AN1-PEEK 23678 
1050 NEXT K 

1060 LET C=C“1;G0SUB 1000 
1070 LET YC=YC-1.36*S;G0SUB 
1000 

1080 LET YC=YC+.68*S:LET XC= 
XC+1,19*S:G0SUB 1000 
1090 LET YC=YC+1.36*S:G0SUB 
1000 

1100 LET YC=YC+.68*S:LET XC= 
XC-1.19*S:G0SUB 1000 
1110 LET YC=YC-.68*S:LET XC= 
XC-1.19*S:G0SUB 1000 
1120 LET YC=YC-1.36*S:G0SUB 
1000 

1130 LET YC=YC+.68*S:LET XC= 
XC+1.19*S:LET S=S*3:LET 
C=C+1:RETURN 

Este programa se basa en la curva 
del copo de nieve, dibujada original- 
mente por von Koch. Puede conside- 
rarse como un copo de nieve infinita- 
mente arrugado, o bien como una isla 
cuya Hnea de costa tiene longitud in- 
fin ita. El programa especifica en la lf- 
nea 20 un triangulo equilatero, cuyo 
factor de escala se ha fijado en S2. La 
Ifnea 30 establece coordenadas X e Y 
para el centro, un factor de escala para 
el tamano de cada triangulo y una va¬ 
riable para cambiar el color. En la If¬ 
nea 50 se llama a una subrutina recur- 
siva que dibuja una figura con forma 
de estrella de seis puntas. 


SIMETRIA Y CAOS 


A pesar de la irreguiaridad del con- 
torno, se mantiene gran parte de la re- 
gularidad de la estrella. Se necesita la 
simetrfa para modeiar formas como la 
del copo de nieve, que combinan el 
caos y el orden; dichas formas son co- 
munes en la Naturaleza. Pero muchas 


estructuras naturales que pueden en- 
tendersc mejor como fractales carecen 
totalmente de simetrfa. Son ejemplos 
de esto las curvas del no Mississippi, 
la superficie de las escamas de jabon, 
los agujeros de un queso suizo, los cra- 
teres de la Luna, las venas y arterias 
del cuerpo humano y las formas de las 
montanas. Lo que distingue a estos 
ejemplos de las formas simetricas ge¬ 
neradas matematicamente es que tam- 
bien contienen un grado de aleatorie- 
dad. Pero tambicn es posibie generar- 
las, utllizando el propio gcnerador de 
numeros aleatorios del ordenador. 
Aquf tienes por ejemplo, un progra¬ 
ma para modeiar una montana: 

10 BORDER 0:PAPER 0:INK 7: 
BRIGHT 1:CLS 

15 PRINT AT 6,2;INVERSE 1; 

" GENERADOR DE MONTANA 
FRACTAL " 

20 DIM C(200,2,2):LET F=1: 
LET G=2:LET CC1,1,2)=25: 
LET C(1,1,1)=0 

22 INPUT "ESCRIBE LA ’RES0LU 
CION DE LA MONTANA C16- 
1003 ";S 

23 IF S<16 OR S>100 THEN 
GOTO 22 

24 INPUT "ESCRIBE EL GRADO 
DE 'RUGOSIDAD' DESEAD0 
C1-53 RG 

25 IF RG<1 OR RG>5 THEN 
GOTO 24 

26 DEF FN R(X)=RG-(CRND*X)* 
(2*RG)) 

27 PAPER 1:CLS 

30 LET L=230/S:LET H=L/(SQR 
3) 

40 FOR K=2 TO S+1:LET C(K,1, 
1)=C(1,1,1)+L*K-FN RC1): 
LET C<K,1,2) = C(K-1,1,2>- 
FN R(1):NEXT K 
50 FOR J=1 TO S:FOR K= 1 TO 
S-J+1 

60 LET C(K,G,1)=FN R(1)+(C(K 


44 INPUT 


































progra 11100 '® 11 




,F,1)+C<K+1,F,1))/2 


C(K,F,15-PEEK 23677,C(K,F 

220 

70 

LET C(K,G,2)=FN RCD+H+CC 


,2)-PEEK 23678 



(K,F,2>+C(K+1,F,2))/2 

100 

NEXT K:LET F=3-F:LET G=3 

230 

80 

PLOT C(K,F,1),C(K,F,2) : 


-F:NEXT J 

240 


DRAW C(K+1,F,1)-PEEK 

110 

FOR y=4Q TO 0 STEP -.75 



23677,C(K+1,F,2)-PEEK 

120 

PLOT 0,y 



23678 

130 

FOR n=1 TO 100 

250 

90 

DRAW C(K,G,1)-PEEK 23677, 

140 

LET a=RND*1D 

260 


C(K,G,25-PEEK 23678:DRAW 

150 

LET b=5-RND*10 



146,16 


RND*31;BRIGHT 1;PAPER 4; 
INVERSE 1;CHR$ 144; 


4;" RESS;"C3*ESPACI0] 
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RUGOSIDAD” rr ;RG; " M 
270 GOTO 270 

HI programa dibuja pequenos trian¬ 
gulos irregulares, partiendo desde la 
parte inferior izquierda de la pantalla, 
y construyc la jmagen con continuidad 
recorriendo toda la pantalla. 

La Imea 30 establece un factor de 
cseala para los triangulos fractales, es- 
pecifiea la longitud de uno de los la- 
dos y su altura. La linea 40 hace un bu~ 
cle de 200 pasos, estableciendo dos 
matrices variables para las coordena- 
das irviciales de cada triangilo fractal. 
Observa que hay un factor de aleato- 
ricdad, de forma que los valores va~ 
riaran dentro de un pequeho margen 
cada vez que ejeeutes el programa. La 
Imea 50 define dos bucles: uno para 
moverse horizontalmente por la pan¬ 
talla y dibujar triangulos y el otro para 
desplazarse hacia arriba en la misma, 

El vertice de cada Triangulo se es- 
pedfica en las lfneas 60 (coordenada 
X) y 70 (coordenada Y). La Imea 80 
desplaza el cursor a! vertice del man- 
gulo que queda mas a la izquierda y 
luego dibuja la base del triangulo. Ob¬ 
serva cdmo los PEEKs se restan de las 
coordenadas para especificar puntos 
absolutos sobre la pantalla; si no se hi- 
ciera esto, algunos puntos podrian 
quedar fuera de ella, originando un 
error cuando el ordenador intentara 
dibujarlos. La Imea 90 dibuja hasta el 
vertice de arriba del triangulo y de 
aqui al vertice izquierdo, que era el 
punto de parttda. La Imea 100 com- 
pleta el primer bucle para dibujar 
triangulos sobre la pantalla en direc- 
cion horizontal y define variables para 
desplazar hacia arriba la posicidn de 
dibujo y comenzar la siguiente fila de 
triangulos. El resto del programa sir- 
ve para llenar el primer piano, com- 
pletando el dibujo. 

FORMAS MULTIPLES 


Ya has visto como cambiando los 
valores de algunas de las variables del 
programa se obtienen diferentes for¬ 
mas. Pero esta variacion solo afecta al 
tamano, detalle y posicidn de la ima- 
gen y no a su aspecto global. El si¬ 


guiente programa te permite especifi¬ 
car una gama de elementos fractales, 
para despues construir un modelo 
fractal a partir de una forma en parti¬ 
cular. 

10 POKE 23658,8:LET F=0:LET 
A$="";LET CL=1 

20 DIM XC100):DIM Y(100):DIM 
1(30):DIM U(30):DIM V(60) 
;DIM W(60):DIM J(100) 

25 BORDER 0:PAPER 7;INK 0: 
CLS 

30 G0SUB 140 
40 G0SUB 350 

50 INPUT "No DE NIVELES DE 
RECURSION- ";NR:IF ABS 
(INT(NR))<1 THEN GOTO 50 
60 LET F=1:LET N=0:CLS 
70 PLOT INVERSE 1;0VER 1; INT 
(127+XCP)),INT(85+Y(P)) 

80 GOSUB 500:IF P>=2 THEN 
GOTO 80 

90 LET A$=INKEY$:IF A$="" 
THEN GOTO 90 

100 PRINTS; ”S PARA SALIR, 
CUALQUIER 0TRA PARA 
CONTINUAR" 

110 LET A$=INKEY$:IF A$="" 
THEN GOTO 110 

120 IF A$<>"S" THEN GOTO 25 
130 CLS:STOP 
140 IF F=0 THEN GOTO 25 
150 PRINT "LA MISMA FORMA 
INICIAL [S/N] " 

160 LET A$=INKEY$:IF A$<>"S" 
AND A$<>"N" THEN GOTO 
160 

165 PRINT A$ 

170 IF F=0 OR A$="N" THEN 
GOSUB 230 

180 FOR K=2 TO CV+1 
190 LET P=K-1 

200 LET X(P)=T(K):LET Y(P>= 
U(K) 

210 NEXT K 
220 RETURN 

230 INPUT "No DE VERTICES EN 
INir ";VT 
240 FOR L=2 TO VT+1 
250 INPUT "VERTICE CL-1); 

"="X,Y 

260 LET T(L)=X*85:LET U(L)= 
Y*85 

270 IF L=2 THEN PLOT INTC127 


275 IF L<>2 THEN DRAW 127+TC 
L)-PEEK 23677,85+U(L)- 
PEEK 23678 

280 NEXT L 

290 PRINT "CURVA CERRADA 
CS/NJ "; 

300 LET AS=INKEY$:IF A$<>"N" 
AND A$<>"S" THEN GOTO 
300 

305 PRINT A$ 

310 IF A$="N" THEN LET CV=VT 
;PAUSE 0:RETURN 

320 LET CV=VT+1:LET T(CV+1)= 



T(2):LET U(CV+1)=U(2) 

330 DRAW 127+TC CV)-PEEK 
23677,85+U(CV)-PEEK 
23678 

340 RETURN 

350 CLS:IF F=0 THEN GOTO 380 
360 PRINT "MISMO GENERAD0R 
CS/N] 

370 LET A$=INKEY$: IF AJCV'S" 
AND A$<>"N" THEN GOTO 
370 

375 PRINT A$ 



380 IF F=0 OR A$="N" THEN 


+T(L)),INT(85+U(L)) GOSUB 400 
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540 IF ABS X(P)>127 OR ABS 
Y(P)>85 THEN GOTO 560 
550 DRAW 127+XCP)-PEEK 23677 
,85+Y(P)-PEEK 23678 
560 NEXT W:RETURN 
570 LET N=N+1 

580 IF N=1 THEN LET JM=CV-1 
585 IF NOI THEN LET JM-GN+1 
590 FOR E=1 TO JM 
595 IF P=1 THEN LI E=JM:NEXT 
E;RETURN 

600 LET TX=X(P):LET TY=Y<P) 
610 LET BX=X(P-1):LET BY=Y( 
P-1) 

620 LET DX=TX-BX;LET DY=TY- 
BY 

630 FOR F=2 TO GN+1 
640 LET X(P)=DX*V(F)-DY*W(F) 
+8X 

650 LET Y(P)=DY*V(F)+DX*W(F) 
+BY 

660 LET P=P+1 
670 NEXT F 

680 LET X(P)=TX:LET Y(P)=TY 
690 LET J(CL)=E:LET CL=CL+1: 
GOSUB 500:LET CL=CL-1: 
LET E=J(CL) 

700 NEXT E 
710 LET N=N-1 
720 RETURN 


390 RETURN 

400 INPUT ‘'Mo DE VERTICES EN 
EL GENERADOR NO 
INCLUYENDO (0,0) Y (1,0) 
M ;GN 

420 PLOT INVERSE 1;0VER 1;85 
,85 

430 FOR M=2 TO GN+1 
440 INPUT "VERTICE DEL 

GENERADOR ,r : (M-1 > ; "="X,Y 
450 IF ABS(INT(X))>1 OR ABS 


de sustituir a cada Imea recta; a esta 
forma se le suele llamar forma gene- 
radora. Dibiijala, introduciendo la co¬ 
rrespond iente inform acton igual que 
hiciste con la forma inicial; la subruti- 
na para introducir estos datos y dibu- 
jar la forma se encuentra entre las li- 
neas 400 y 490. Scguidamcnte el pro- 
grama te pedira que especifiques el 
numero de niveles de recursion. Des¬ 
pues de que introduzcas el correspom- 
diente valor, la It'nea 80 llama a una 
subrutina que determina si es la pri- 
mera vez que se ejecuta el programa 
(en cuyo caso salta a la rutina princi¬ 
pal, lineas 570 a 720. para dibujar las 
fractales). o si se trata de una nueva 
pasada y tiene que ofrecerte la opcion 
dc definir nucvas fractales. 


PRUEBA 


(INT(Y))>1 THEN GOTO 440 
450 IF ABS(INT(X))>1 OR ABS 
(INT(Y))>1 THEN GOTO 440 
460 LET V(M)=X:LET W(M)=Y: 
LET X=X*85+85:LET Y=85+Y 
*85:DRAW X-PEEK 23677,Y- 
PEEK 23678 
470 NEXT M 

480 DRAW 175-PEEK 23677,85- 
PEEK 23678:PAUSE 0 
490 RETURN 

500 IF NR=N THEN GOSUB 520 

505 IF NRON THEN GOSUB 570 

510 RETURN 

520 FOR W=1 TO GN+1 

530 LET P=P-1 


Al ejecutar el programa, la lfnea 
230 te pregunta cuantos vertices quie- 
res que tenga la forma que constituye 
el punto de partida de la fractal. Con- 
viene que dibujes antes la forma en un 
papel. Marca dos puntos que repre- 
senten el principio y el final de la li- 
nea, y unelos con unos cuantos seg- 
mentos de recta. Cuenta el numero de 
vertices e introducelo como dato al 
programa. Sin embargo no te oivides 
de que tienes que especificar las coor- 
denadas (Imea 250) de todos los ver¬ 
tices, por lo que te conviene que sea 
un numero pequefio; tres o cuatro son 
buenos valores. A las coordenadas 
hay que darles un valor comprendido 
entre 0 y 1. El bucle situado entre las 
lineas 240 y 280 te permite introducir 
coordenadas v dibujar la forma inicial. 
Tambien puedes elegir si quieres que 
la figura especificada sea abierta o ce- 
rrada (lfnea 290). 

La siguiente section del programa 
te permite especificar la forma que ha 


Como ejemplo, dale un valor dc 3 
como respuesta al numero de vertices 
de la forma inicial. Seguidamente, te- 
clea las coordenadas —0.5, —0.2 para 
el vertice 1; 0, 0.4 para el vertice 2; 
0.5, -0.2 para e! vertice 3. Si ahora 
respondes N cuando te aparezea el 
monsaje i,CURVA CERRADA?, te 
aparcccra en la pantalla un triangulo 
sin base. Analogamente, si respondes 
con un 3 para el numero de vertices 
de la forma generadora, podrias espe¬ 
cificar las siguientes coordenadas: 0.2, 
0 para el vertice 1; 0.4, 0.8 para el ver¬ 
tice 2; 0.6, 0 para el vertice 3. Te re- 
sultara la forma de un triangulo sin 
base que se asienta sobre una b'nea 
recta. Dale ahora un valor cercano a 
5 como nivel de recursion y observa la 
fractal resu Itante 

Las tecnicas fractales avanzadas son 
las responsables de algunas de las ima- 
genes mas satisfactorias generadas ac- 
tualmente por ordenador. El gran pai- 
saje montahoso que figura junto a es- 
tas lineas solo existe en la memoria de 
un ordenador, aunque muy bien po- 
dria tomarse como algo real. 

Una imagen de esta complejidad 
implica enormes cantidades de proce- 
samiento por parete de grandes orde- 
nadores especializados, pero se apli- 
can las mismas tecnicas a los ordena- 
dores domesticos. 
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FUNCIONAMIENTO Y APUCACIONES 
DE LA INTELIGENCIA ARTIFICIAL 01) 


Cn el capitulo anterior hicimos una 
breve introduction a la Inteligencia 
Artificial, en la que esbozamos sus 
principals caracterfsticas y delimita- 
mos su forma de funcionamiento, sus 
propiedades y sus aplicaciones, en re- 
lacion a los programas convencionales. 

Entre estos elementos definitorios, 
destacabamos uno especialmente sig¬ 
nificative, su desarrollo en terminos 
de «aprendizaje», A partir de este ca- 
pi'tulo, vamos a tratar de profundizar 
mas en estos aspectos, centrando un 
poco nuestra atencidn en la que se ha 
venido considerando hasta ahora 
como la manifestation mas apasionan- 
te de la Inteligencia Artificial: los Sis* 
temas Expertos, 

Como es evidente, un tipo de soft¬ 
ware tan radicalmente distinto al con- 
vencional plantea la necesidad de dis- 
poner tambien de un hardware dife- 
rente, que satisfaga las exigencias de 
una nueva forma de procesamiento. 

Un ordenador apto para la investi¬ 
gation y el trabajo dentro del ambito 
de la I.A. debe tenter una «arquitectu- 
ra» ligeramente modificada con res- 
pecto al modelo original del celebre 
genio de la ciberndtica J, Von Neu¬ 
mann. Estas modificaciones, junto 
con la necesidad de disponer de una 
gran memoria central de rapido acce- 
so y complejos «ambientes de progra- 
macion», hacen que los precios de los 
ordenadores de estas caracterfsticas se 
disparen hasta hacerse inaccesibles a 
los usuarios particulares, que en la 
mayori'a de los casos tienen que con- 
formarse con «micros» domdsticos que 
ni tan siquiera disponen de un lengua- 
je de programacion adecuado para es¬ 
tos menesteres, 

En cuanto a los lenguajes de pro- 
gramacion, podemos decir exactamen- 
te lo mismo. El LISP, junto con aigu- 
nas versiones del LOGO desarrolladas 
recientemente, esta considerado como 


el lenguaje por excelencia de la Inte¬ 
ligencia Artificial. En cuanto al BA¬ 
SIC, y sin animo de desilusionar a na- 
die, hay que decir que se muestra es¬ 
pecialmente inutil en este campo, fun- 
damentalmente por la ausencia de dos 
elementos indispensables para el tra¬ 
bajo con motores de inferencia , de los 
que hablaremos mas adelante, y por 
su lentitud. Dichos «elementos indis- 
pensables», que en el fondo no son 
mas que dos manifestaciones de una 
misma funcion, son los siguientes: 

- «la recurs;vidad» 

- el procesamiento dj recto de «ta- 
blas de propiedades». 

A continuation vamos a pasar a ex- 
plicar ambos conceptos. 

Como ya vimos en el numero ante¬ 
rior, la «deduccion» de nuevas conclu- 
siones a partir de una serie de datos 
ya conocidos o «premisas», es una de 
las principales propiedades de la Inte¬ 
ligencia Artificial. Pues bien, este pro- 
ceso deductivo se reaiiza basicamente 
a traves de un razonamiento Idgico de 
tipo «silogistico» que toma la siguien- 
te forma: 

SI A = B 
YB = C 

ENTONCES A = C 

Asf, si introducimos las preniisas 
VON NEUMANN 

ES MATEMATICO 

y 

UN MATEMATICO 
ES UN HOMBRE 

en un programa de LA. escrito en 
LISP o LOGO, el valor «HOMBRE» 
serfa automaticamente asignado por la 
maquina al sujeto «VON NEU¬ 
MANNS bajo la propiedad «E$». Es 
decir, se extrae la conclusion «VON 
NEUMANN ES UN HOMBRE» sin 
necesidad de gastar tiempo y memoria 
en una rutina que haga el trabajo, ya 
que el propio lenguaje de programa¬ 
cion posee este tipo de prestacion. 



Partiendo de esta estructura sintac- 
tica, 


NEUMANN ES MATEMATICO 

I I I 

Sujeto Propiedad Valor 

el programa puede configurar tablas 
en las que almacenar los valores bajo 
su propiedad y sujeto correspondien- 
tes. De esta forma, la mecanica deduc- 
tiva que acabamos de analizar puede 
complicarse invotucrando a todos los 
elementos existentes en las tablas de 
propiedades, lo cual permite a su vez 
que estas se vayan ertgrosando. Tene- 
mos, pues, dos vlas o fuentes de datos 
para el ordenador: 

- las premisas o afirmaciones intro- 
ducidas directamente por el usuario. 

- las conclusiones deducidas por el 
propio ordenador. 

Basicamente, esta es ia forma de co- 
nocimiento que estructura la forma de 
aprendizaje de la maquina, ademas de 
un larga serie de reglas que condicio- 
nan otros razonamientos mas comple¬ 
jos. 

Podemos definir la «recursividad» 
como la posibilidad por parte del or¬ 
denador, de atribuir un valor a un su¬ 
jeto a traves de este procedimiento de¬ 
ductivo, sin que nosotros hayamos 
asignado directamente dicho valor a 
dicho sujeto. De esta forma, si des¬ 
pues de haber estableeido las premi¬ 
sas que tomabamos como ejemplo, di- 
jeramos al programa: 
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VON NEUMANN 
ES UN HOMBRE 
nos contestaria, 

YA LO SE! 

Tal y como hemos planteado esta 
explication* puede parecer demasiado 
simple, pero debemos tener en cuenta 
que un programa de Inteligencia Arti¬ 
ficial, o un sistema experto, no se ii- 
mita a hacer deducciones a partir de 
dos premisas de contenido trivial, 
como hemos hecho aqui, sino que 
puede llegar a alcanzar complejas con- 
clusiones que involucren a cientos de 
datos ( o miles), superando en breve- 
dad y precision a todo un equipo de 
expertos humanos. Esto es lo que hace 
que la LA. sea algo util y no un sim¬ 
ple objeto de experimentation sin 
aplicacion practica. 

A continuacidn vamos a tratar de 
concretar un poco todo lo que hemos 
visto hasta ahora en los Sistemas Ex¬ 
pertos, analizando sus distint as partes, 


LOS SISTEMAS EXPERTOS 


Aunque en teoria un programa de 
Inteligencia Artificial podrfa llegar a 
aprender practicamente «de todo» sin 
especiafizarse en nada, esto no seria 
muy util, y por tanto no se hace. 
Como es evidente, lo verdaderamente 


interesante es crear programas «ex- 
pertos» en afguna materia especifica 
que puedan ayudar a los especialistas 
en su trabajo, o incluso sustituirlos en 
algunas ocasiones, aunque sobre esto 
ultimo se deben guardar ciertas reser¬ 
ves. Este tipo de programa recibe el 
nombre de ^Sistema Expertos, que 
rnuchas veces se aplica incorrectamen- 
te a otros tipos de Inteligencia Artifi¬ 
cial. 

Los S,Ep son fundamentalmente 
«depositos» de conocimiento especia- 
lizados en nna materia concreta, como 
por ejemplo la astronomfa, la medici- 
na o la botdnica, y por tanto sus fun- 
ciones son basicamente de tipo consul¬ 
tive. Su principal ventaja reside en fa 
posibilidad de acumular estructurada- 
mente los conocimientos de los exper¬ 
tos humanos, y hacerlos accesibles a 
otras personas. El ejemplo mas ciaro 
lo tenemos en los sistemas capaces de 
diagnosticar enfermedades, utilizados 
en zonas inaccesibles en las que no hay 
medicos que puedan hacerlo directa- 
mente. 

Ahora que sabemos lo que es un 
Sistema Experto, vamos a pasar a ana- 
lizar los distintos elementos de que se 
compone y sus caracteristicas mas im- 
portantes. 

Un Sistema Experto posee general- 
mente tres partes claramente diferen- 


ciadas, aunque muy estrechamente li- 
gadas entre si: 

- La «Base de Conocimientos^ 

- Los «Motores de Inferential 

- El «Analizador de Lenguaje» 

La Base de Conocimientos esta con- 
figurada por el conjunto de los datos 
depositados y las reglas que dan sen- 
tido y coherencia a esos datos. Es de¬ 
ar, por un fado el «dato puro», por 
otro lo que en el caso de los seres hu¬ 
manos llamamos «categorias de enten- 
dimiento» que convierten un hecho 
objetivo en algo con significado para 
nosotros. Aunque pueda parecer sor- 
prendente, la Inteligencia Artificial no 
posee lo que se ha dado en llamar «la 
objetividad de la maquina». Esto es 
asi porque para trabajar con los datos 
de que disponemos necesita manejar 
una serie de hipotesis y reglas que, 
bien adquiridas por fa experiencia, o 
bien transmitidas por el hombre, es- 
tructuran el resultado final de la mis- 
ma manera que harian sus maestros, 

Los «Motores de Inferencia» son el 
nucleo fundamental de razonamiento 
de la maquina. Su funcion consite en 
analizar los elementos estructurados 
por la Base de Conocimientos e mfe- 
rir cual es la regia que se debe aplicar 
o que se puede deducir en cada caso. 
Dicho esto, no es diffcil hacerse una 
idea de la extraordinaria complejidad 
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que ios Motores de Inferencia pueden 
Ilegar a alcanzar. 

Por ultimo nos queda hablar del 
Analizador de Lenguaje, quizas la 
parte mas interesante de todo sistema 
experto. 

La Inteligencia Artificial, diffcil- 
mente podrfa llamarse asi si no alber- 
gara la posibilidad de comumcarse con 
el hombre. no a traves del lenguaje de 
la informatica, sino a traves del len- 
guaje natural. Conseguir esto de una 
forma integral, sin serias Hmitaciones 
de voeabulario, sintaxis y contexto, ha 
side hasta el momento la gran frusta- 
tion de los especialistas, que si bien 
han logrado crear modelos que se 
aproximan mucho al nivei deseable, 
todavfa no han dado el paso definiti¬ 
ve. 

En un programa I,A*, el Analizador 
de Lenguaje tiene !a mision de recibir 


las ordenes y la information del usua- 
rio, «comprender so significado» y 
comprobar su correcdon, y por ultimo 
convertir esa information en algo 
comprensible por la maquina. De ah 
guna manera, el Analizador de Len¬ 
guaje fimriona a modo de «traductor» 
lenguaje humano/Ienguaje eiberneti- 
co. y vice versa. 

Afortunadamente para los investi- 
gadores ingleses y nortamericanos, el 
idioma ingles resulta especialmente 
apto para facilitar el trabajo al orde- 
nador, dada su extraordinaria simpli- 
cidad verbal y sintaciica. No ocurre asi 
con el espariol. 

A modo de conclusion, diremos que 
el desarrollo de los Analizadores de 
Lenguaje es quizas el principal escollo 
que bloquea el avance de las invest!- 
gaciones en materia de Inteligencia 
Artificial. 


ANALISIS DEL PROGRAMA 


El programa que acompaha a esta 
serie de artfculos es, basicamente, un 
instrumento de trabajo que eonsta de 
dos unidades: 

- Un procesador de textos. 

- Un procesador de datos. 

Ambas utilizan una base matricial 

bidimensional, de 150 x 150 caracte- 
res para el procesador de datos, y 110 
x 32 para el procesador de textos. 

Con objeto de dejar el listado del 
programa abierto a vuestra interven- 
cion, lo hemos estructurado en rutinas 
claramente delimitadas y etiquetadas. 
Podemos sugerir la ampliation de la 
capacidad de las matrices, que no lie- 
gan a agotar las posibiiidades de me- 
moria del Spectrum, o la creadon de 
nuevos co man dos. 
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Hay que reconocer que como me¬ 
dio de ilustrar el funcionamiento de la 
Inteligencia Artificial. el programs 
deja bastante que desear. A modo de 
disculpa, y dejando a un iado la res- 
ponsabilidad del autor, diremos que 
existen dos causas. Una, las limitacio- 
nes que presenta el BASIC, inmensas; 
y otra, la intention de ofrecer un ins¬ 
trument util (a diferencia de lo que 
suele hacerse en estos casos), un pro- 
grama que merezca la pena ser teclea- 
do, que no decepcione, y no una sim¬ 
ple demostracion curiosa pero impro- 
ductiva. 

De las dos unidades de que consta- 
ra este programs, aqui vamos a co- 
mentar la del procesador de datos, Su 
parte mas interesante, que en cierto 
modo comparte tambien el procesador 
de textos (que se incluira en el proxi¬ 
mo numero de Input), es la que se en- 
cuentra entre las lfneas 200 - 550, que 
viene a reproducir (toscamente) las 
funciones de un analizador de lengua- 
je. Aquf es donde se reciben nuestras 
ordenes y donde, una por una, son en- 
viadas a la rutina correspondiente 
para que las ejecute. Si queremos in- 
troducir alguna funcion mas, bastaria 
con anadir una h'nea que rcconociera 
el nuevo comando y saltara a la rutina 
deseada. 

Como habreis observado, en el tra- 



tamiento de cadenas numericas y alfa- 
numericas destaca especialmente la 
utilidad de dos comandos BASIC que 
en el manual del Spectrum —inexpli- 
cablemente— son mencionados como 
de poca importancia. En efecto , si 
nunca hemos tratado cifras a traves de 
matrices del tipo A$(x,y) las funcio¬ 
nes VAL y STR$ (especialmente esta 
ultima) pueden parecer poco utiles, lo 
cual no quiere decir que lo scan en 
realidad. Si el lector no esta familiari- 
zado con ellas, le aconsejamos remi- 
tirse a las explicaciones del manual, 
que son bastantes claras. 

No se incluye junto con el progra- 
ma un diafragma de flujo por varias 
razones. Una, la especial aversibn del 
autor por tan fea costumbre, que creo 
debe compartir todo buen programa- 
dor; otra, el tratarse de una serie de 
rutinas mas o menos independientes, 
cuya funcion aparece identificada 
oportunamente a traves de sentencias 
REM, con lo cual el lector puede ac- 
ceder al listado directamente sin nece- 
sidad de complicarse con un diagrama 
que, por lo demas, resultaria bastante 
enrevesado y muy diffctl de dibujar. 

Lo que si hemos hecho (no podia 
faltar), es un esquema de los diferen- 
tes comandos que podemos utilizar 
para comunicarnos con el programa, 
junto con algunos ejemplos: 


PROCESADOR DE DATOS 

RELACION DE COMANDOS 

- INTRODUCE/nombre/x,y,z, ... 
etc.,/ 

Introduce en memoria una serie 
de datos la etiqueta (nombre) que de- 
signemos. 

- INTRODUCE%/nombre/x,y,z, 
... etc.,/ 

Introduce en memoria los datos y 
calcula el tanto por ciento que repre- 
senta cada uno de ellos con respecto 
al total, introduciendolo tambien en 
memoria. 

- INTRODUCE#/nombre/x,y,z, ... 
etc.,/ 

Idem., calculando en este caso el 
tanto por ciento de incremento de 
cada cifra con respecto a la cifra inme- 
diatamente anterior. 

- MUESTRA/nombre/ 

Muestra los datos colocados bajo 
una etiqueta. 

- MEDIA/nombre/ 

Calcula !a media aritmetica de los 
datos de una etiqueta con expresibn 
del total y el total de valores de x. 

- DESVIACION TIPICA/nombre/ 

Calcula el valor que toma la des- 

viacion ti'pica de los datos de una eti¬ 
queta, con expresion de la media arit¬ 
metica, el total, y el total de valores 
de x. 
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- SUMA/nombre/otro nombre/ 

Sum a cada dato colocado bajo la 
etiqueta 1 a su homologo de la etique- 
ta 2. Ejemplo: 


GASTOS 

IMP. 

G + I 

325 

621 

946 

612 

133 

745 

1178 

528 

1706 


- RESTA/nombre/otro nombre/ 

Igual que el anterior, solo que en 

este caso restando. 

- BORRA/nombre/ 

Borra una etiqueta y todos Ios da- 
tos en ella almacenados. 

- BORRA/TODO/ 

Borra completamente toda la me- 
moria del procesador de datos, dejan- 
do la del de textos como estaba. 

- SALVA/ 

Salva en cinta el contenido de la 
matriz de datos del procesador (no 
afecta al procesador de textos). Veri- 
fica si la grabacion se ha efectuado co- 
rrectamente. 

-CARGA J 

Carga en memoria los datos alma¬ 
cenados en cinta. 

- TEXTO/ 

Permite acceder al procesador de 
textos. 


Los datos y sus correspondientes 
etiquetas se almacenan en memoria de 
la misma forma en que los tecleamos, 
por lo que cs muy importante no olvi- 
dar las barras y las comas, y respetar 
la sintaxis del programa. 

Vamos a suponer que tenemos las 
cifras de cobros y de gastos de un se- 
mestre, y queremos hallar su diferen- 
cia, el total de gastos, el porcentaje 
que supone cada cifra de gastos con 
respecto al total de gastos, y el pro- 
medio de los cobros. 

Tecleariamos: 

INTRODUCE%/GASTOS/520, 
353,231,870,321,227,/ 
que almacenaria los datos bajo la eti¬ 
queta «GASTOS» y los porcentajes 
calculados bajo la etiqueta «%GAS- 
TOS». Al ejecutarse la instruction, los 
resultados iran apareciendo en ia pan- 
talla. A continuation: 

INTRODUCE/COBROS/ 1034, 
725,812,567,932.409,/INTRODU- 
CE/MES/ENE ,FEB .MAR.ABR, 
M A Y,JUN,/MUESTR A/MES/ 
MU ESTR A/COB ROS/MUES- 
TRA/GASTOS/ 

que introducirfa las cifras de «CO- 
BROS», los nombres de los meses, y 


lo mostraria todo. Como se puede ver, 
es posible teclear varias instrucciones 
seguidas; el programa las ejecuta una 
por una hasta llegar al final de la or- 
den. Despues: 

MED I A/COB ROS/ 
que calcularia la media aritmetica de 
las cantidades colocadas bajo la eti¬ 
queta «COBROS». Y por ultimo: 

RESTA/COBROS/GASTOS/ 
que hallana la diferencia y almacena¬ 
ria el resultado bajo la etiqueta I G. 

Naturalmente, las instrucciones no 
tienen por que teclearse en el mismo 
orden que lo hemos hecho nosotros. 

Si no respetamos la sintaxis necesa- 
ria para que el programa funeione y 
este no detecta el fallo, o si queremos 
aplicar operaciones matematicas a da¬ 
tos no numericos, puede producirse 
un mensaje de error e interrumpirse el 
programa. Para volver a ponerlo en 
marcha, nunca hay que pulsar RUN, 
pues de esta forma borrariamos todas 
las variables, sino GO TO 200. 


Teciea 


1200 REM ETIQUETA YA COL. 
1535 IF N$(F)=CHR$ 47 THEN 
GO TO 1570 
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1540 IF N$(F)=CHR$ 44 THEN 
GO TO 1600 
1550 LET P$=P$+N$(F) 

1560 NEXT F 

1570 LET A$(L+15 =CHR$ 37+V$: 
LET 0$=0$+CHR$ 47: LET 
A$(L+1,LEN V$+2 TO LEN 
VS+2+LEN 0$)=0$ 

1580 LET L=L+1: LET LL=L 
1585 GO SUB 9000: LET N$= m ': 
GO SUB 550 

1590 IF B$(N)=CHR$ 47 THEN 
GO TO 230 
1595 GO TO 200 
1600 LET P=INT (VAL P$*100 
/T): LET 0$=0$+STR$ P+ 
CHR$ 44: LET P$="" 

1610 GO TO 1560 

1800 REM TOTAL 

1805 LET S$=' m : LET T=0: 

LET T$='"' 

1810 FOR F=1 TO LEN N$ 

1820 IF N$(F)=CHR$ 47 THEN 
GO TO 1885 

1830 IF N$(F)=CHR$ 44 THEN 
GO TO 1870 
1840 LET T$=T$+N$( F) 

1850 NEXT F 

1870 LET T=T+VAL T$: LET 
T$="" 

1880 GO TO 1850 

1885 FOR F=1 TO LEN V$-1: 

LET S$=S$+CHR$ 140: 


NEXT F 

1890 PRINT TAB 9-LEN V$;S$ 
1895 PRINT TAB 8-LEN (STR$ T) 
;T: BEEP .1,30: RETURN 
2000 REM MUESTRA 
2005 CLS : LET YY=0 
2010 LET N$="": GO SUB 550 
2020 FOR F=1 TO L 
2030 IF A$(F,1 TO LEN N$)=N$ 
THEN LET LL=F: GO TO 
2060 

2040 NEXT F 

2050 PRINT "NO HAY NINGUNA 
ETIQUETA CON EL 
NOMBRE ";N$: GO TO 
2080 

2070 GO SUB 9000 
2080 LET N$="": GO SUB 550 
2085 IF N$="MUESTRA/" THEN 
GO TO 2010 

2090 IF B$(N)=CHR$ 47 THEN 
GO TO 230 
2100 GO TO 200 
2500 REM INTRODUCE tt 
2505 LET C=0: LET L$="": LET 
1$="": LET P$="" 

2510 CLS : LET YY=0: LET N$= 

GO SUB 550: LET L=L 
+1: LET A$CL,1 TO LEN 
N$)=N$ 

2520 LET V$=N$: LET 00=LEN N 
$: LET N$=" M : GO SUB 
550 


2530 LET A$(L,00+1 TO 00+1+ 
LEN N$)=N$ 

2540 LET LL=L: GO SUB 9000: 

GO SUB 1800 

2550 FOR F=1 TO LEN N$ 

2560 IF N$(F)=CHR$ 44 THEN 
LET C=C+1: GO TO 2600 
2570 IF N$CF)=CHR$ 47 THEN 
GO TO 2650 
2580 LET I$=I$+N$(F) 

2590 NEXT F 

2600 IF C=1 THEN LET P$="#" 
+V$+"- / "; LET LS=I$: 

LET 1$="": GO TO 2590 
2610 LET P$=P$+STR$ INT (<VAL 
IS-VAL L$) *100/VAL L$)+ 
CHR$ 44 

2620 LET L$=I$: LET 1$=’"': 

GO TO 2590 

2650 LET L=L+1: LET A$(L,1 TO 
LET P$+1)=P$+CHR$ 47 
2660 LET LL=L: GO SUB 9000 
2680 LET N$="": GO SUB 550: 

IF B$(N)=CHR$ 47 THEN 
GO TO 230 
2690 GO TO 200 
3000 REM BORRADO 
3005 PRINT AT 21 / 0; ,, I123* 
ESPACI03" 

3010 LET N$="": GO SUB 550 
3020 IF N$=''TODO/" THEN GO TO 
3100 

3025 PRINT FLASH 1;"BORRANDO 



INVESTICK E INTERFACE 2 

SPECTRUM 
OPTIMUS LUDICUS 


Si te gusla disfmtar a tope con tu ordenador, y sacarle el m&rimo 
paztido, aqui tienes dos busnas ideas. 

Incorporate el Investick. El mando de hasta cuatio disparadores y 
ocho direcdones distintas de movimiento, 

Y ademis, el Interface de Sinclair, con el que puedes oonectaz dos 
Investicks y utilizer los Cartuchos ZX de carga mstantinea. Estfl si 
que te dari juego. Con Invesdck e Interface 2, tendras juegos 6p- 
timus para ti y tu Spectrum, o paia el nuevo Spectrum 123, 
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vm 


investronica 
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Gamp, 80 Tell (93) 211 26 58-211 27 54. 08032 Baicelorte 


SPECTRUM EL ORDENADOR CLASKO 
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";N$ 3620 

3030 FOR F=1 TO L 3625 

3040 IF A$(F,1 TO LEN N$)=N$ 

THEN LET LL=F; GO TO 3630 
3070 

3050 NEXT F 

3060 PRINT AT 1,1;"NO HAY 3650 
NIN6UNA ETIQUETA CON EL 3655 
NOMBRE ";NS: GO TO 200 3656 
3070 FOR F-1 TO 150 3657 

3080 LET A$(LL,F)=" " 3660 

3090 NEXT F 3665 

3092 BEEP .1,30: CLS 3680 

3095 LET N$="": GO SUB 550 
3098 IF B$(N)=CHR$ 47 THEN GO 3690 
TO 230: GO TO 200 3710 

3100 REM BORRADO TOTAL 3720 

3105 CLS 3730 

3110 BEEP .1,30: DIM A$(150, 3800 
150) 3802 


3120 LET N$="": GO SUB 550 
3130 IF B$(N)=CHR$ 4? THEN 
GO TO 230 

3140 GO TO 200 3805 

3500 REM SUMA/RESTA 

3502 LET RE=0: IF N$="RESTA/ 

" THEN LET RE=1 3810 

3505 LET CT=0: LET U$= M ": LET 3820 
SLET CC=0: LET 1$ 3850 
= LET 0$="’*: LET C=0 
3508 CLS : LET YY=0 
3510 LET N$="": GO SUB 550 
3520 FOR F=1 TO L 
3530 IF A$CF,1 TO LEN N$)=N$ 3860 
THEN LET V$=N$: GO TO 
3560 3870 

3540 NEXT F 

3550 PRINT "NO HAY NINGUNA 3880 
ETIQUETA CON EL NOMBRE 1 4000 
;N$: PAUSE 0: GO TO 200 4010 

3560 FOR K=1+LEN N$ TO 150 
3570 IF A$(F,K)=CHR$ 44 AND 
A$(F,K+1)=CHR$ 47 THEN 
GO TO 3600 4020 

3580 LET 0$=0$+A$( F,K) 

3590 NEXT K 4030 

3600 LET C=C+1: IF C=2 THEN 
LET 0$=0$+CHR$ 44: LET 
LL=F: GO SUB 9000: GO 
TO 3620 

3610 LET Z$=V$: LET 0$=0$+ 4040 

CHR$ 44: LET P$=0$: LET 4500 
0$="": LET LL=F: GO SUB 4510 
9000: LET N$="": GO SUB 
550: GO TO 3520 


FOR F=1 TO LEN 0$ 

IF 0$(F)=CHR$ 44 AND 
CT=2 THEN GO TO 3800 
IF 0$(F)=CHR$ 44 THEN 
GO TO (3710 AND CC=1)+ 
(3660 AND CC=0) 

LET I$=I$+0$(F) 

NEXT F 

IF CT=2 THEN GO TO 3850 
LET CT=1: GO TO 3710 
FOR K=1 TO LEN P$ 

LET CC=1 

IF P$(K)=CHR$ 44 THEN 

GO TO 3800 

LET U$=U$+P$(K) 

NEXT K 

IF CT=1 THEN GO TO 3850 
LET CT=2: GO TO 3800 
IF RE=0 THEN GO TO 3805 
LET S$=S$+STR$ (VAL U$- 
VAL I$)+CHR$ 44: LET 1$ 
=”0": LET U$="0": GO TO 
3810 

LET S$=S$+STR$ (VAL U$+ 
VAL I$)+CHR$ 44: LET 
I$="0": LET U$="Q" 

IF CT=1 THEN GO TO 3710 
GO TO 3655 

LET L=L+1: LET A$(L,1 
TO LEN S$+7)=V$(1)+(CHR 
$ 43 AND RE=0)+(CHR$ 45 
AND RE=1)+Z$(1)+CHR$ 47 
+S$+CHR$ 47 
LET LL=L: GO SUB 9000: 

GO SUB 550 

IF B$(N)=CHR$ 47 THEN 
GO TO 230 
GO TO 200 
REM SALVA 

CLS : INPUT "NOMBRE ?"; 
N$; BEEP .1,30: IF LEN 
N$<1 OR LEN N$>7 THEN 
GO TO 4010 

SAVE N$ DATA A$(): CLS 
: BEEP .1,30 
PRINT AT 20,0;"REBOBINE 
PARA VERIFICAR.C8* 
ESPACIO0PULSE UNA TECLA 
PAUSE 0: BEEP .1,30: 
VERIFY N$ DATA A$() 

BEEP .1,30: GO TO 200 
REM CARGA 

CLS : INPUT "NOMBRE ?"; 
N$: BEEP .1,30: IF LEN 
N$<1 OR LEN N$>7 THEN 


GO TO 4510 

4520 LOAD N$ DATA A$(): CLS 
: BEEP .1,30 
4530 GO TO 200 
5000 REM MEDIA 
5005 LET YY=Q: CLS : BEEP .1 
,30: LET C-0; LET V$="" 
5010 LET NS="":GO SUB 550 
5020 FOR F=1 TO L 
5030 IF A$(F,1 TO LEN N$)=N$ 
THEN GO TO 5050 
5040 NEXT F 

5045 PRINT "NO HAY NINGUNA 
ETIQUETA CON EL NOMBRE 
";N$: PAUSE 0: GO TO 
200 

5050 LET V$=N$: LET N$="" 

5060 FOR K=1+LEN V$ TO 150 
5070 IF A$(F,K)=CHR$ 44 THEN 
LET C=C+1 

5080 IF A$(F,K)=CHR$ 47 THEN 
LET N$=N$+CHR$ 47; GO 
TO 5100 

5085 LET N$=N$+A$(F,K) 

5090 NEXT K 

5100 LET LL=F: GO SUB 9000: 

GO SUB 1800 

5110 LET M=T/C: PRINT : 

PRINT INVERSE 1;"VAL0RES 
DE X: INVERSE 0;C; 

PRINT : PRINT INVERSE 1 

;"MEDIA: INVERSE 0; 

M: BEEP .1,30 

5111 IF DT-1 THEN GO TO 5500 
5120 LET N$=""; GO SUB 550 
5130 IF B$(N)=CHR$ 47 THEN 

GO TO 230 
5140 GO TO 200 
5500 REM DES.TIPICA 
5505 LET TC=0: LET Z$="" 

5510 FOR F=1 TO LEN N$ 

5520 IF N$(F>=CHR$ 47 THEN 
GO TO 5600 

5530 IF N$(F)=CHR$ 44 THEN 
GO TO 5560 
5540 LET Z$=Z$+N$(F) 

5550 NEXT F 

5560 LET TC=TC+VAL Z$ A 2: LET 
ZGO TO 5550 
5600 LET TT=SQR (TC-(1/(C* 
(T A 2)))/(C-1)) 

5610 PRINT : PRINT INVERSE 1 
;"DES. TIPICA: "; 

INVERSE 0;TT: BEEP .1, 
30: GO TO 5120 
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;NO TE PIERDAS NI UN SOLO EJEMPLAR! 

INPUT SINCLAIR quiere proporcionar INPUT SINCLAIR que querais, siempre al 
a sus lectores este nuevo servicio de precio de cubierta (sin mas gastos). 



ejemplares atrasados para que no pierdan la 
oportunidad de tener en sus hogares todos 
Ios ejemplares de esta re vista, lider en el 
mercado espanol. 

Podreis solicitar cualquier numero de 


Utiliza el cupon adjunto, enviandolo a 
EDISA (Dpto. de Suscripciones), Lopez de 
Hoyos, 141 - 28002 Madrid, o bien Uamanos 
por telefono al (91) 415 97 12. 


■ -iHlITViTT 


CUPON DE 


si, envienme contrarreembolso ejemplares de INPUT 

SINCLAIR de los numeros: 

(marca con una (X) tu eleccion) 


NOMBRE !_i_i_i_I_I_ i —I_LJ—L_L X ill'l l—i— l_ 

APELLIDOS .. .I_ !_ J— ■ l | li i | —l—i—J— 

DOMICILIO i i i i i i 1 i I I i I 1 1 1 1 1 1 1 J 

NUM, i I i i PISO!_J_1 ESCALEKA l_I—i COD. POSTAL L 

POBLACION i i l i i l I i i l I I i I I —L I I )PRC 
TELEFONO 1_I_l_J— J — J —I—J 


FIRMA 


.-jra 

vpWii 




p, -.•3JI4S 


' !> ! ■ 



V V- 1 
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MEJORES 

DE INPUT SINCLAIR 



PUESTO 


k° 

2 .° 

3.° 

4° 

5. ° 

6 . ° 

7 . ° 

8 . ° 
9.° 

10 


TITULO 


PORCENTAjE 


Saboteur .. 20,7% 

Prof ana tion . 17,7 % 

Commando . 15,7 % 

Super Test .... 11,8 % 

The Dambusters ... 10,0 % 

The way of the exploding fist 8,0% 

Sir Fred . 4,7 % 

Rambo . 4,1 % 

West Bank . 4,0% 

Alien 8 .. 3,3 % 


100 % 




A 


Jr 


f 


\ 


\ 


Para la confeccion de esta relacion unicamente se 
han tenido en cuenta las votaciones enviadas por 
nuestros lectores de acuerdo con la seccion «Los 
Mejores de lnput». 

Marzo de 1986 



X 
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DYNAMITE DAN 


Dynamite Dan es una trepidante 
aventura que aporta interesantes 
innovaciones al tradicional mo'delo 
del Manic Miner, tan profusamente 
repetido hasta la fecha. 

El protagonista es un curioso 
personaje que camina con ias man os 
en ios bolsillos como si no le 
preocuparan los multiples peligros 
que le acechan. Su misidn: salvar a 
la Tierra de la amenaza de un arma 
mortifera, cuyos pianos esconde el 
malvado Doctor BHtzen en el interior 





DATOS GENERALES 


e Da 





FABRICANTE: Mirrorsoft 


RDENA 





EM0R1A: 48 


AL1FICAC 



COS 



bre 5 



CLASE DEFROGRAMA: Arcade 


COLOR: 4,5 sobre 5 


PRESENTACION: 4,5 sobre 5 


INTERES: 4 sobre 5 


REALISMO: 4 sobre 5 



de la caja fuerte de su mansion. Para 
ello, debera buscar los ocho 
cartuchos de dinamita que se 
encuentran repartidos por la guarida 
del Doctor, encontrar la caja, 
volarla, y escapar, y todo ello 
sorteando las innumerables trampas 
preparadas a lo largo de todo el 
camino. Si tenemos la desgracia de 
caer en alguna de ellas, existen dos 
posibilidadcs, una, que perdamos 
una de ias diez vidas de que 
disponemos y continuemos con la 
mision en el mismo lugar donde la 
dejamos, y dos, que las perdamos 
Codas de una vez y tengamos que 



empezar de nuevo, Todo depende de 
la gravedad del descalabro. 

La principal innovacion que 
introduce este juego, pues la 
originalidad es uno de los factores 
que mas hemos de valorar, es que las 
distintas pantalias de que se 
compone son interdependientes entre 
si, es decir, no se trata de 
«habitaciones» que simplemente se 
comunican sin continuidad clara, 
separadas por tabiques, sino de un 
solo piano continuo sin partes 
aisladas. Por !o demas, el 
tratamiento grafico es muy bueno y 
el mo vim iento esta muy bien 



conseguido, siendo de destacar el 
hecho de que en ningun momento 
veremos una pantalla en la 
que no haya multitud de variados 
personajes moviendose 
simultaneamente. 

El juego es un derroehe de 
imagination y de colorido que nos 
hara pasar muy buenos rates sin que 
en ningun momento lleguemos a 
aburrirnos. Su inclusion dentro de la 
linea abierta por el Manic Miner no 
le resta en absolute originalidad, y 
podemos asegurar que es de lo mejor 
que se ha hecho dentro de este tipo 
de juegos. 


NUEVA YORK, BARRIOS BAJOS 


ThaPs the Spirit, producido por The 
Edge, es una de las novedades mas 
comentadas en los ultimos meses 
dentro del mercado del software , 
tanto por su originalidad como por 
su elevado grade de «adiccidn». 

Se trata de una apasionante aventura 


ambientada en los barrios bajos de 
Nueva York en el ano de 1996, bajo 
el gobiemo del reci£n formado 
«Consejo Mundial». Nuestra mision 
consiste en sobrevivir dentro de un 
mundo hostil, Heno de fantasmas, 
perms rabiosos, y un sinfm de 


misteriosos y acechantes personajes 
que haran todo lo posible por 
amargarnos la vida. 

La originalidad del programs se pone 
espectalmente de manifiesto en la 
gran diversidad de comandos de que 
dispondremos a lo fargo del juego 
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para lograr nuestro objetivo, Gracias 
a ellos tendremos la posibilidad de 
hacer practicamente cualquier cosa 
que se nos ocurra con los objetos 
que vayamos encontrando en nuestro 
camino, desde examinarlos 
detenidamente hasta arrojarlos lejos 
de nosotros, pasando por muchas 
otras interesantes posibilidades. En 
este sentido, se llega a un grade de 


DATOS GENERALES 

CALIFICACION 

TITULO: That's the Spirit 


GRAFICOS: 4 sobre 5 

[FABRICANTE: The Edge 


COLOR: 3,5 sobre 5 

ORDENADOR: Spectrum 

PRESENTACION: 4,5 sobre 5 

MEMORIA: 48K 

INTERES: 4,5 sobre 5 

CLASE DE PROGRAMA: 

Aventura urbana 

REALISM0: 4 sobre 5 


sofisticacion tan alto que hasta 
podemos «decir palabrotas» para 
espantar a nuestro enemigos mas 
«sensibles>\ siempre, esc si, que lo 
hagamos en el memento oportuno 
pues de lo contrario podriamos 
llevarnos una desagradable sorpresa. 
For si no tuvieramos bastante con 
nuestros denodados esfuerzos por 
sobrevivir, tendremos tambien que 
vigilar en todo memento nuestro 
«estado de salud» y el «grado de 
agotamiento» en que nos 
encontremos, echandonos a dormir 
cuando necesitemos recuperar 
fuerzas* 

Para ayudarnos en nuestra dificil 
tarea, disponemos de un radar 
detector de fantasmas que nos 
avisara con la suficiente antelacion 
de su presencia, Desgraciadamente, 
tan util instrumento no nos sera de 
mucha ayuda con el resto de los 
peligros que nos aguardan. 

Para terminar, diremos que apesar 
de la manifiesta originalidad del 
programa, su planteamiento general 
nos recuerda un poco al de Frankie 
goes to Hollywood, aunque ambos 
son completamente distintos e 
igualmente recomendables. En 
definitiva, se trata de una aventura 
muy original en la que la diversion 
esta asegurada, sobre todo para 
aquellos que no se den por vencidos 
con facilidad, pues el programa 
requiere mucha tenacidad y practica. 


UN COLEGIAL ENAMORADO 


El bueno de Mikie esta enamorado. 
Cad a dfa acude al colegio con un 
claro deseo: poder ver a su amamda 
aunque solo sea por unos instantes. 
Durante estos dfas las clases le 
resultan interminables, no aguanta 
las explicaciones del profesor y tan 
sdlo suena con poder encontrarse 
con ella. 

Un buen amigo le ha asegurado que 
todos los dias sale al patio a la hora 
del recreo, y que en ese instante 
podria verla. Sin embargo, le ha 
recomendado que, como prueba de 


amor, debe recoger todos y cada uno 
de los corazones que estan 
esparcidos por las distintas 
habitaciones del colegio, de lo 
contrario nunca Ilegara a encontrarse 
con ella, Mikie esta dispuesto a hacer 
cualquier cosa por alcanzar su 
objetivo; asf, ni corto ni perezoso, ha 
decidido hacer novillos y tanzarse a 
la aventura hasta llegar al patio 
donde ella le aguarda. ^Le 
acompanas? 

Conseguir los corazones no es facil, y 
aunque algunos se obtienen 


simplemente pasando por encima de 
ellos, otros se encuentran bajo los 
pupitres de los companeros y antes 
de recogerlos es preciso desplazar a 
los colegas para poder hacerse con 
ellos. 

Hasta llegar al patio hay que pasar 
por la clase, el vestuario, el bar, y el 
gimnasio, asi como los distintos 
pasillos de acceso a estas 
habitaciones. 

La primera fase se desarrolia en el 
aula, donde otros ocho companeros y 
un profesor desean que las 
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DATOS GENERALES 


TITULO: Mikie 


CALIFJCACION 


GRAFICOS: 4 sobre 5 


FABR1CAN ( E: Konami 


ORUENADOR: Spectrum 


MEMORIA: 48K 


CLASE DE PROGRAMA: 
Amor estudiantll 


COLOR: 3,5 sobre 5 


PRESENTACION: 4,5 sobre 5 


INHERES: 4 sobre 5 



explicaciones se desarrollen con toda 
normalidad; por su parte Mikie 
intentara por todas los medios, 
mediante golpes de cadera, desplazar 
a sus colegas para conseguir los 
corazones existentes y salir 
rapidamente hacia la siguiente 
habitacion, Sin embargo, el profesor 
no tolera la indisciplina y tratara de 
atrapar a nuestro portagonista para 
mantener el orden, incluso si es 
necesario enviandole su propia 
dentadura para inmovilizarle. 

Una vez en el pasillo tambien 
continuan los peligros, ya que iin par 
de sujetos y unos objetos moviles 
pueden estropear la mision; salvados 
estos entrara en el vestuario, donde 
tres individuos incansables le 
perseguiran para tratar de atraparle* 
Para mantenerles entretenidos es 
posible enviaries unos balones de 
baloncesto, y de este modo, durante 
unos breves instantes, recogcr los 
corazones que se encuentren en las 
eabinas ser& un poco mas facil. 

Tras atravesar de nuevo el pasillo, se 
desemboca en el bar, lugar en el que 
unos molestos personajes intentaran 
amargar la aventura; ante estas 
tambien es posible entretenerles 
enviandolcs unos sabrosos polios 
asados* 

La siguiente habitacion es el 
gimnasio, en el que un grupo de 
nueve esbeltas bailarinas acaban de 
iniciar su ensayo, Es peligroso 
acercarse mucho a ellas, ya que si 
Mikie llega a besarlas estara durante 
unos segundos alucinando bajo sus 
efectos y sera presa facil de su 
perseguidon 

Finalmente, si consigue llegar al 
patio debera sortear a los bedeles 


que por all! se encucntran y tras 
recoger todos los corazones, 
aproximarse a su amamda, 
compartiendo con ella unos breves 
momentos. 

Inmediatamente hay que volver a 
clase para iniciar de nuevo la 
aventura, aunque en cada nueva fase 
la situation se complica y es 
necesario obtener un mayor niimero 



de corazones que mantengan vivo el 
amor de Mikie. 

Este programa creado por Konami 
cuenta ademas con el atractivo de 
una conocida cancion de The Beatles 
como banda sonora. Se trata de una 



excelente version para Spectrum del 
tema !Que noche la dc aquel dial 
(«A hard day's night»), donde no 
solo suena la melodia, sino que 
tambien existe un perfecto 
acompahamiento de bateria. 


LOS PELIGROS DE LA SELVA 


Un calor sofocante envuelve la selva. 
Los enormes arboles casi no 
permiten el paso de los rayos de sol 
y la vegetation cubre la practica 
tot alidad del terreno. 

Bajo estas condiciones el pobre 
Wally debe encontrar a su esposa e 


hijo que desaparecieron cuando 
realizaban una excursion por la 
selva. Una tribu de indigenas los ha 
capturado y como se trata de 
cambales, estan dispuestos a 
merendarse a toda la familia. 
Nuestro protagonista sabe que 


existen numerosos peligros 
acechando en cualquier rincdn y que 
cada minute que pasa puede suponer 
la muerte de sus queridos Wilma y 
Herbert, Quizas con tu ayuda le 
resulte mas facil alcanzar su objetivo 
y poder rescatarlos, antes de que 
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sea demasiado tarde* 

La aventura se inicia junto al 
campamento, donde hay una 
indication que sehala el camino para 
entrar en la selva. Siguiendo esta 
direction y salvando los murcielagos 
que intentan acabar con su vida T 
Wally atraviesa un frondoso bosque 
lleno de unos ojos escrutadores que 
le observan a su paso. 

En la siguiente zona unos mosquitos 
enormes que pululan por toda la 



Wilma.*, y algunos son 

imprescindibles para poder pasar a 
otras pantallas, 

En la selva existen infinidad de 
animates y si bien no todos son 
peligrosos, hay que tener cuidado 
con los leones, murcielagos, 
mosquitos, cocodrilos, cangrejos, 
caracoles...; y tambien hay que 
evitar entrar en la zona de las arenas 
movedizas de las que es imposible 
salir. 



paso impidiendo que Wally se 
acerque, 

En otra region de la jungla Wilma se 
halla cabeza abajo, colgada por los 
pies y con un indigena haciendo 
guardia que no permite a nadie 
aproximarse a ella. 

Wally ya conoce la situation, ahora 
dene que pensar en la estrategia a 
seguir para poder liberarlos. En las 
distintas pantallas que va 






CALIFICACION 


TITULO: Th ree weeks m paradise GRAF LCDS: 4,5 sob re 5 


FABRICANTE: Mikro-Gen 


ORDENADOR: Spectrum 


MEMORIA: 48K 


CLASE DE PROGRAMA: 
Aventura en la selva 


COLOR; 4 sobre 5 


PRESENTACION: 3,5 sobre 5 


TERES: 3,5 sobre 5 


REALISMO: 3,5 sobre 5 



pantalla pueden causarle, con un 
simple roce, la perdida de una de sus 
vidas. Salvando este peligro se 
encuentra con Herbert que esta a 
punto de ser cocinado. Introducido 
en una gran olla, y con el fuego 
calentando el guiso, el pobre Herbert 
grita con fuerza al ver a su padre. 

Sin embargo no es facil rescatarle, ya 
que un par de leones custodian el 


atravesando existen unos objetos que 
puede eager para usarlos 
posteriormente. Algunos tienen una 
utilidad inmediata, otros pueden 
parecer inservibles. Tan solo puede 
transportar simultaneamente dos de 
estos objetos, por lo que hay que 
seleccionarlos adecuadamente. Entre 
ellos se encuentran tazas, 
sacacorchos, hachas, el bolso de 


Wally puede moverse a izquierda o 
derecha, saltar, coger y dejar 
objetos, nadar, disparar, trepar, y 
ademas tiene la peculiar 
caracterfstica de cambiar de color en 
cualquier momento, 

Otro aspecto importante del juego es 
la posibilidad de cambiar de 
escenario en determinadas pantallas, 
es decir, que nuestro personaje 
puede pasar a otras zonas de la selva 
que incialmente son inaccesibles, 
incluido un pequeno lago azul. 

En la parte inferior de la pantalla 
aparecen una serie de mensajes que 
informan sobre el desarrollo de la 
aventura, las vidas que restan a 
Wally y los objetos que lleva encima. 
Microgen ha creado un exotico 
programa que se desarrolla en un 
ambiente tropical y que tienen como 
princtpales caractensticas la 
perfeccion de sus graficos y el 
colorido de las pantallas. 


GRUPO JOTA. \ueva direccion y telefonos 

C/ General Varela, 35 - 3. # 11 Telefs: 279 82 01 
28020 Madrid 279 82 02 
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POR PARTICXPAR EN INPUT SINCLAIR 


Desde la aparicion de INPUT os hemos animado a enviar vuestras 

colaboraciones en la revista. Los trabajos publicados han si do remunerados 

de acuerdo con tarifas establ eci das. 

En este sorteo habeis entrado absolutamente todos quienes habeis 
"participado", aiin cuando los trabajos no hayan si do publicados. 

A continuacion aparece la lista de los premiados en los participantes en 
los tres primeros meses. El mes que viene conocereis a los agraciados en 
los tres siguientes. 

NUMERO 1 


p r i in e r p r e in :i. o „ b 0.0 U U p t, ss 
5 e g u n d o p r © m i o. 25.. 000 p t s, :: 


T‘ & r c e r p r © m i □., 10„ 000 p t s „ is 

NUMERO 2 

hr i nier pr ern i o „ 50 - 000 p t s „ : 

Segundo premia,, 50. 000 pts. s 
Ter cer p r ami o „ 10000 p t s. is 

NUMERO 3 


Santi Espanol Ponciello. LERIDA„ 
Rafael Marques „ Sant Marti de Tons 

BARCELONA. 

Enrique 01ivan Torres. LOGRONO. 


Ma. Angeles 
J. Lui s Ad 
Fco. Javier 


Mate Garcia. 

ias Perales 
Romero Diaz. 


BARCELONA. 

BARCELONA 

MADRID. 


Primer premio. 50.000 pts. s 
Segundo premia 25., 000 pts.s 
T©r cr.er pr ©mi o „ ;i. 0., 000 p ts * :i 

Enhorabuena. 


Rafael Hernadez Moreno. 
Mayte Estebanez. Aqui1ar 
Julian Garcia Capllonch 


Getafe. MADRID, 
d e C a mp o d . P A L E N CIA 
Sal inas. ASTURIAS. 


!.... o s a g r a c i a d o s r e c: i b i r & i s u n v a 1 e q u e o s p e r in i t i r a c o m p r a r m a t e r i a 1 

□or el valor equivalent© de vuastro premio en las tiendass 


i nf or mat i i:q pi: 


Micro Uno. c/ Du que de Sesto, 50. 28009 MADRID,. Telf.s (91) 275 96 86 

Mi c r oTodoc / 0 r en ©e, 3. 28020 M ADR ID. T elf . s (91) 253 21 19 

fticroTodo. Centro comercial Pozuelo. Pozuelo de Alarcon. MADRID. Telf.s 
( 91 ) 715 61 70 . 

Estos comercio© os enviaran per correct el equipo solicitado a quienes no 
p d d a i s i r en persona„ 


GANADORES DE LOS MEJORES DE INPUT SINCLAIR 

En el sorteo correspondiente al numero 5 realizado entre quienes escribisteis mandando vuestros votos 

a LOS MEJORES DE INPUT ban resultado gait adores: 


NOIVIBRE 

LOCALIDAD 

JUEGO ELEGIDO 

Jesus Ibanez Gonzalez 

Jaen 

The Dambusters 

Sergio Alonso Pastrana 

Madrid 

Commando 

Marcelo Vizcaino Garcia 

Madrid 

Sir Fred 

Liu is Batiste Parra 

Barcelona 

Hypersports 

Ramon Prieto Ardiia 

Baracaldo 

The Dambusters 

Pedro Pomar Ldpez 

Palma de Maliorca 

Camelot Warriors 

Cristina Charlier Gonzalo 

Barcelona 

Every one’s a Wally 

Pedro Ignacio Carmona Sarmiento 

Malaga 

Camelot Warriors 

Jos£ Jorge Garcia Fidalgo 

Trobajo del Camino 

The Dambusters 

Francisco Xavier Rodriguez Rodriguez 

Barcelona 

The Dambusters 
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CONTROLA TUS CALORIAS 


Es indudable que una alimentaddn 
equilibrada es fundamental. No basta 
comer mucho y de la mejor calidad, 
es necesario saber comer. Conseguir 
una buena dicta no es facil y son 
muchos los factores que influyen en 
la obtencion de un regimen 
adecuado. 

Este programa presenta tres 
opciones: anSlisis de los alimentos, 
calculo dc peso y crcacion de un 
regimen. 

Ei analisis de los alimentos incluye 



calorfas. El programa presenta una 
ficha para cada alimento con su 
no mb re, composicion y grupo al que 
pertenece. 

La opcidn calculo de peso nos da el 
peso normal e ideal en funcion del 
sexo, la constitucidn, la talla y la 
edad. 

Tambien es posible crear un regimen 
que normalmente sera hipocalorico, 
es decir debe contener menos 
calorias de las neeesarias, ya que de 
este modo obligamos al organismo a 
quemar las grasas. Para obtener esta 
dieta equilibrada se eligen los 
prod act os que se deseen con las 
cantidades que se van a consumir. 
Una vez definido el menu, el 
programa, basandose en las calorias 
fijadas previamente, calcula la 
insuficiencia o suficiencia de los 
cinco componentes analizados, con 
un veredicto global sobre los 
alimentos seleccionados, 

Para cada uno de los factores que 


componen la dieta se evalua su 
contenido, que puede ir desde 
excesivo hasta insuficiente, y la 
calificaeion global del regimen, que 
puede ser correcta, muy grasa o no 
sal ud able... 

Segun el resultado obtenido podemos 
variar aquellos componentes que no 
scan recomendables por exceso o por 
defecto y asf perfilar un regimen que 
se adapte perfectamente a las 
caracteristicas personales. 

Ahora las amas de casa pueden 
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un total de 78 productos con las 
prinripales caracteristicas de cada 
uno de ellos. Todos los alimentos 
son analizados en base a cinco 
componentes: fibras, hidratos de 
carhono, grasas, protetnas y calorias. 
Para que exista homogeneidad, y 
poder realizar comparaciones, se ban 
tornado 100 gramos de cada producto 
y todos los componentes estan 
medidos en gramos excepto las 



GRUPO 


HNRLISI5 DE 3.33 GRftHOE 


CONTENIP.O ; 

FIBRR6 O CTffl-HOd 

HIDR. DC CRRBQNO . 3.4- 

C-RRSlRE 30.6 GRflMOi 

PRpTKiNflS *7.4. GRRHCS 
CrtL.ORIfl5 390 QPILORIHB 


disfrutar de las ventajas, que brinda 
el Spectrum, pudiendo elaborar sus 
menus diaries adaptados a una 
aportacidn nutritiva saludable y un 
consumo de calorias adecuado. 

Con este programa la tirma Software 
Center vela por nuestra salud, 
mdicandonos que eiementos 
necesitamos en mayor o menor 
proporcion para que nuestra dieta 
sea equilibrada. 




N.O.M.A.D. 471 


Una vez mas, como algunos 
esperaban y todos ternfan, el 
malvado Cyrus T, Gross, lider de la 
Orgamzacidn Criminal Intergalactica, 
cierne sobre el Universo la zarpa de 
su ambition sin limite. 

Incapaces de detenerfe, los 
gobernantes del Mundo Libre se ban 
visto obligados a recurrir a la agenda 
NEMESIS, compuesta por un grupo 
de mercenarios humanos y 



robotoides dispuestos a luchar por 
cualquier causa bien remunerada. La 
difitil mision, consistente en 
introducirse en ia ciudad sede de la 
organization, atravesar sus cuatro 
sectores, asaltar las habitaciones 
personales del malvado Cyrus y 
destruirle (casi nada!), ha sido 
rechazada por !os humanos y 
asignada al unico que no podia decir 
que no : el «Droide de Guerra 
Autonomo de Alta Inteligencia» 
N.O.M.A.D. 471. Los tecnicos 
afirman tajantemente su 
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indestructibilidad, pero no serta la 
primera vez que se cqtrivocan. 

Sin profundizar mas en la description 
de tan noveleses trama, direinos que 
se trata de un programs may bten 
reatizado en cuanto al resultado 
final, aunque en sus detalles, como 
observaran los mas exigences, 
presents algunas soluciones tecnicas 
un tanto primitives, que nos 
remontan a la prehistoria del 
Software . A modo de ejemplo, 
senalamos que el protagonists de la 
aventura se desplaza sobre un fondo 
negro, evitando grandes quebraderos 
de cabeza a sus ere adores, pero 
desluciendo notablemente la 
presentacion deljuego, Otro detalle 
poco elegante es el brusco cambio de 
pantalla donde hubiera sido mas 
propio un scroll suave. 

A pesar de todo, estos defectos no 
restan in teres al juego ni evitan 
que pasemos un buen rato eon 
61 






DATOS 


TITULO: N.O.M.A.D 


FABRICANTE: Ocean 


QRDENADOR: Spectrum 





* 


PRESENTACION: 3,5 sobre 5 




EMOR 



CLASE DE PROGRAMA: 
Espacial 


INTERES: 3 sobre 5 


REALISMO: 3,5 sobre 5 


★★★★★★★★★★★★★★★★★★★★★★★■A" 


CARRO DE COMBATE 


Un tanque de alta tecnologfa tiene 
que destruir los objetivos enemigos 
que estan distribuidos por los 
distintos escenarios que eomponen 
esta aventura. Pero para conseguirlo 
debe evitar los muchos peligros que 
surge n a su paso: tanques enemigos, 
eanones anticarro y minas explosivas. 
El combate no tiene lugar en amplios 
espacios, ya que en algunos iugares 
solo hay sitio para un tanque, En 
estas situariones hay que prestar una 
mayor atencion, ya que si tenemos 
un enemigo cerrandonos el paso, lo 
mejor que podemos hacer es cambiar 
de sentido, 

Nuestro tanque no es indestructible, 
y a medida que va recibiendo los 
impactos enemigos su maquinaria y 
carrocena se van deteriorando, A la 
derecha de la pantalla aparecen unos 
pequenos indicadores que nos 
informan de la situation tecnica del 
vehiculo, y segun los distintos colores 
que van adquiriendo, sabemos lo 
danado que se encuentra. 



En el lado izquierdo figura el radar 
de minas que avisa en todo memento 
si alguno do estos artefactos esta 
proximo. A su derecha se observan 
los indicadores del combustible, el 
numero de bombas, los enemigos 
destruidos y las defensas que le 
restan. 

El carro de combate puede girar a 
izquierda y derecha, en diagonal, asi 
como avanzar y retroceder. Ademas 
de estas posibilidades el tanque 
cuenta con unos poderosos 
proyectiles capaces de destruir a 



cualquier enemigo que se presente. 
Durante el desarrollo del combate y 
tras recibir los impactos enemigos, es 
posible retornar a los talleres para 
reparar los deterioros de la 
carrocena, asi como cargar 
combustible y nueva municion. 

Una de las principals dificultades 
del juego es que eada vez que un 
enemigo es destruido, sus restos 
quedan en el asfalto, impidiendo el 
paso a cualquier vehiculo. Esto 
puede ocasionar graves problemas ya 
que si en un espacio reducido te 
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encuentras de frente con un 
enemigo, no siempre es lo mejor 
destruirle, ya que desdc ese 
momento no es posible pasar por el 
lugar en que haya quedado. 

El programa creado por Ariolasoft 
nos introduce en un ambiente belico: 
una ciudad que poco a poco va 
siendo destruida; sin embargo la 
melodfa que acompana el juego es 
muy distinta, ya que se trata de una 
version muy agradable del «Himno 
de ia Alegrfa». Que lo disfrutes. 



Revis 


w de Software 



DATOS GENERALES 

CAUFICACION 1 

TITULO: Panzadrome 

GRAFICOS: 4 sobre 5 

FABRICANTE: Ariolasoft 

| 

COLOR: 3 sobre 5 

ORDENADOR: Spectrum ! 

PRESENTACION: 4,5 sobre 5 

MEMORIA: 48k 

INTERES: 4 sobre 5 

CLASE DE PROGRAMA: 

Batalla de carros 

REALISMO: 4 sobre 5 

fa 


★★★★★★★★★★★★★★★★★★★★★★★★ 


LA CUEVA DE DIAMANTES 


Una mina repleta de tesoros espera 
ser descubierta, para ello hay que 
introducirse en ella y conseguir los 
diamantes que encierra. 

El programa se inicia con Boulder 
Dash en la entrada de la cueva 
dispuesto a comenzar su larga 
andadura que comprende un total de 
16 cuevas diferentes. 

El objetivo del juego es conseguir la 
totalidad de joyas que hay repartidas 
en las diferentes cuevas y en el 
menor tiempo posible. Tras ello se 
abriran las compuertas que dan paso 
a la siguicnte galena que ademas de 
las dificultades anteriores, afiade la 
necesidad de mover acertadamente 
determinadas piedras para alcanzar 
algunos de los diamantes que se 
encuentran bloqueados, 

A medida que nos introducimos en 
la mina las complicaciones se 
multiplican, Lo que comenzo con 
una mera recoleccion de piedras 
preciosas se convierte en una 


TITUIO: Boulder Dash 

FABRICANTE: First Star 

* 

ORDENADOR: Spectrum 

MEMORIA: 48K 

CLASE DE PROGRAMA: 
Aventura en la mina 



Irepidante aventura, donde los 
reflejos, la rapidez y una buena dosis 


CAUFICACION 

GRAFfCOS: 3 sobre 5 
COLOR: 3,5 sobre 5 
PRESENTACION: 4 sobre 5 
INTERES: 4,5 sobre 5 
REALISMO: 4 sobre 5 


de estrategia se convierten en 
elementos imprescindibles. 

Sin embargo la experiencia adquirida 
al traspasar una de las cuevas no 
sirve de mucho en Ia siguiente, ya 
que cada galena plantea distintos 
obstaculos, y mientras en ia primera 
tan sblo hay 20 joyas, en otros hay 
tantas que es practicamente 
imposible alcanzarlas todas. 

En las 16 cuevas existentes es posible 
encontrar mariposas, insectos 
guardianes, amebas, muros y un sin 
fin de peligrosos enemigos que 
protegen las piedras preciosas. 

Es posible iniciar la aventura por 
cualquiera de las cuatro entradas que 
tiene, aunquc en los niveles mas 
diffciles es necesario comenzar por la 
cueva A. 

La puntuacion esta en funcion del 
numero de joyas recogidas y el 
tiempo empleado, para ello se cuenta 
con tres vidas que pueden ser 
incrementadas al sobrepasar los 500 
puntos, pero recuerda que el nivei de 
dificultad seleccionado fija el numero 
de joyas a recolectar y el tiempo. 
Finalmente un conscjo: las piedras y 
los diamantes siguen la ley de la 
gravedad y si no tienen nada bajo 
etlas, caeran aplastando lo que 
encuentren a su paso. 

Esta creacidn de First Star cuenta 
con el atractivo que supone superar 
unas fases cada vez mas diffciles con 
el afan de superacidn que implica, 
sin embargo adolece de unos graficos 
demasiado simples. 


DATOS GENERALES 
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S.IZL V.3* 4,000 

Base tfe dales con caicuios. 

A! comprar esta version abonamos 3 . 000 ,- plas. pof cuat- 
quier version anterior. 

Context V.9" 4.000 


Sistema experto de Flores 
dejardm 3.500 

Sistema experto de Minerales 3.500 

APLICACIONES SIT! V.3 3 + 500 
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Tratamsento de Teatos. 

Fynciona con cualquier impresora 
Acentos graves y agudos. 

Al comprar esta version abonamos 3.000 ptas, par 
cualquier version anterior 

Adaptador SlTl-CONTEXT 2,500 

Permite pasar informaeidn del 8 HI a I CONTEXT. 

M.D.S. - Sistema Operativo para 
Microdrive 7.000 

Conjynto de nuevos comandos BASIC que permiten Ac- 
ceso Aleatonoa Ficheros an Microdrive con un tiempo 
medio de acceso de 4 segondos 

CONTABILIOAD PIN" 3.000 

Plan contable 200 cuemas, 2.000 asienios. 

Hasta 9.000,000.000 Balance con activo-pasivo, eta. resol- 
tados. Utilize ei S.O.M.D.S. Cnaiquier impresora fit) Col 

Kit UtiUdades Discovery 1 3,000 

10 utilidades CAT exiendirfo. ON ERROR. Compactador 
de discos, etc, 

A JUSTE DE CABEZALES 
CASSETTE 

S1NTETIZADOR DE VOZ 
MULTI-COPYS (Copys desde 2 cm. 
hasta 70 cm.) 

COPY GRISES (F + , SP-800, 

SP-1000, GP-55Q) 

COPY RS-232 
COPY SERIE RITEMAN F+ 

EDITOR 64 (64 cotumnas 
en pantalla) 

‘Dispanible en disco para Discovery 1 al precio de 
5.000,- pias. 


2.500 

3.000 

3.000 

2.500 

2.500 

2.500 

2.750 


COMANDO _ 

CRITICAL MASS 1,696 

DAM BUSTERS 1.964 

FIGHTING WARRIOR 1.875 

GYROSCOPE 1.696 

HIGHWAY ENCOUNTER 1,696 

OLE TORO 1.875 

RAM80 1,675 

SABOTEUR 1.696 

SGRIZAM 1,741 

SUPERMAN 2.464 

THE WAY OF EXPLODING FIST 2.054 
WEST BANK 1.741 

Y TODAS LAS NOVEDADES, 

Soticita catalogo. 


Agenda + Videos+Coniabifidad domestics+Stocks, etc. 
(necesita ef SfTl V.3) 


Interface sonido TV 3.500 

Interlace Joystlk 2,000 

Joystick Quickshot II 2.600 

l/F Centronics 8.000 

Lapiz optico*software 4,850 

Interface monitor 3.900 

Cinta virgen 15 1 100 

Monitor Ciaegi f. verde 24,000 

Monitor Ciaegi f* ambar 24.750 

Caja para 12 microdrives 100 

Teclado Saga 1 11,000 

Tec la do Saga 3 19.900 

Discovery 1 +disco Kit 55.000 

Diskettes 3 1/2 714 

Cable impresora Discovery 3,500 

Alrmentacion ininterrumpida 9.750 

Digitalizador de imagenes 35,000 

Impresora Riteman F+ 71.900 







































PLUS 


Es muy dificil que podamos hablar con todos vosotros para conoceros mejor y saber cuales son vuestras preferencias. Para tener constancia be opmiones 
y necesidades hemos de recurrtr a las frias encuestas y dejar que se pronuncie ia estadistica. Los beneficiados seremos todos: vosotros porque nos decis 
que querdis y nosotros porque al haceros caso continuaremos haciendo vuestra revista favorita. 


Encuesta 

para conocer tu perfil 
y preferencias 


1, ^Tienes ordenador? Si □ No □ 

2. En caso afirmativo. ^Cual? ... 

3, ^Cuanto ttempo hace que lo posees? 

4. ^Que perifericos y accesorios tienes? 


5, ^Desde que numero lees INPUT? N.°: ..,. 

6, i,C6mo conociste INPUT?.«........,. 

7, £,La compras en kiosco? □ ^Eres suscriptor? □ 

8, iCon que frecuencia la adquieres? 

Todas □ 

De vez en cuando □ 

Otros □ 

9, ^Cuantas personas leen tu ejempiar de INPUT? .... 

10. ^Lees toda la revista? SI □ No □ 

11. ^Tecleas?: 

Todo □ 

Casi todo □ 

Alguna cosa □ 

Nada □ 

12. ^Califica que secciones te gustan mas con mayor pun- 
tuacidn (10 a 0): 

Programacion........ 

Codigo maquina ..................... 

Robotics ... 

Coleccionable.*.... 

Revista de hardware ___ 

Revista de software ..... 

Aplicaciones..... 

Actualidad........ 

Libros ...... 

Buzon,.......... 

Zoco...... 

Education.,,,,..—............... 

Los mejores de INPUT. 

13. Califica las portadas entre 10 y 0, segun lo que te hayan 
gustado; 


N.° 1 ____ 

N. a 2.... 

N* 3... 

NM.... 

H.° 5........ 

N.* 6 .... 

14. ^Que articulo te gusto mas del ejemplar?: 

N 5 1 

I * ■ I i ■■ » * * 4 ■ * » *• m « « ■ m * m m * * m m * * * » 

N.° 2 .... 

N.° 3....... 

N ° 4 

I aj ■ T ■ B- + ■* • m '■ - V * 1 « ■•»■•■■■ ■ ■ ■ 

N.“ 5. 

N.° 6. 

15. iA que te dedicas cuando no estas con el ordenador?, 
^estudias o trabajas?, i,en que, si no es indiscrecion?): 

■■■■*■* mmm S i * + *** B i + + + I i + * >ff 4 ■ ■ » V *11 ■ If f It Ilf IIVMf m ■* W 9 1 * *■■■■■■■■■■ ■ ■■■■■■■■■ + ■« ■ * I I ■ ■ ■ * # <1 « ■ ft- 

16. £,Que secciones o terms echas de menos en INPUT?: 


17. ^Estas satisfecho con tu ordenador? Si □ No □ 

18. i Estas contento con los servicios tecnico y postventa? 
Si □ No □ 

19. <?De que marca y modelo sera e! proximo ordenador que 

compres?....... 

20. ^Piensas cambiarlo pronto? Sf □ No □ 

21 . ^Aproximadamente, ouantos programas comerciaJes for- 

man tu biblioteca?......—... 

22. iCada cuanto tiempo compras uno nuevo?....... 

23. ^Lees otras revistas de ordenadores? Si □ No □ 

24. En caso afirmativo, 

^Cuales?.....*......... 


25. ^Por alguna razon en particular? 


26. ^Quieres anadir alguna cosa mas? 


Con solo contestar a esta encuesta puedes ganar un SPECTRUM PLUS o su valor equivalente en accesorios y/o software.. 

As[, que escribe lus datos para partrcipar. La fecha llmite es el proximo 5 de abril. No es precise que contestes las preguntas para fas que no tengas 
respuesta, Tampoco es necesario que las respuestas sean favorables a nuestra labor para que puedas participar en el sorteo. Criticanos si honestamente 
crees que debes bacerlo, Envianos este cuestionario o su fotocopia a: ENCUESTA INPUT SINCLAIR, c/ Alberto Alcocer, 46-4° 28016 MADRID. 


Nombre ..........Apellidos ............. 

Edad ......Direccion .................... Dto, Postal 

Telefono de contacto 


Gracias y suerte con el premio. 
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